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PREFACE 



BASIC is a widely accepted, general purpose, interactive programming language designed to include 
extensive programming power along with simplicity of use. The INTERDATA 03-055 BASIC Interpreter 
provides the BASIC language under any existing INTERDATA operating system and at R02 and above for 
INTERDATA 16-bit and 32-bit processors. INTERDATA BASIC contains all the features of Dartmouth 
BASIC*, plus various extensions of the language listed below: 

Matrix operations 

Optional LET statement 

Extended IF statement 

INPUT and PRINT via logical unit 

ON statement 

PRINT USING (picture format) 

String operations (including string arrays) 

Boolean operations 

CALL (assembly language subroutine) 

File handling (OPEN and CLOSE) 

BASIC Batch operations 

Rewind, write file mark, backspace 

String to floating point conversion 

Floating point to string conversion 

Program trace 

INTERDATA BASIC is compatible for the most part with BASIC written for other systems. Programs 
to be converted should require only minor modifications. 

The INTERDATA BASIC Interpreter is written as a reentrant package and can provide multi-user 
capability and file handling features within the BASIC language itself when run imder the multi-user 
BASIC Executive (03-058). The BASIC Interpreter requires approximately 11KB. 

The INTERDATA BASIC Interpreter supports a single user under BOSS, or a single user with file handling 
under DOS. It supports single users under OS32ST on the 32-bit processors. It sujyports multi-user 
capability under RTOS and OS16MT on the 16-blt processors and under OS32MT on the 32-bit processors. 
BASIC requires a Model 5, 70, 7/16, 80, 7/32 or 8/32 Processor or equivalent; or a Model 74 or a 
Basic 7/16 using an OS with floating point trap support. 

For information on the availability of related programs or documents, refer to the Software and Docu- 
mentation Price List, Publication Number 38-076. 



*As defined in BASIC PROGRAMMING, (Kemeny and Kurtz, John Wiley and Sons, Inc. #46825 (e) 1967) 
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CHAPTER 1 
INTRODUCTION TO BASIC PROGRAMMING 



1. 1 BASIC STATEMENTS AND MODES 

A user performs operations in the BASIC language by means of statements containing instructions to BASIC. BASIC 
statements may be up to 72 characters long. In BASIC, there are three modes available to the user: 

Im:mediate Mode 

In the Immediate mode, the user issues a statement to BASIC, which is immediately executed. The statement is 
characterized by the absence of a preceding line number. The Immediate mode is discussed In detail in Chapter 4. 

Example: PRINT SIN (. 12) 

Program Mode 

In the Program mode, the user enters BASIC statements to be stored for later execution. A. program statement must 
contain a preceding line number which serves to Identify the statement and to indicate the order in which the statement 
is to be executed. 

Example: 100 PRINT X+SIN (. 12) 

FoUowii^ the line number, each statement contains a word specifying the type of operation to be performed. All lines 
present in the user's program area are available for modification, deletion or execution. 

Run Mode 
The user enters the Run mode to execute program statements entered in the Program mode. 



1.2 LINE NUMBERS 

Line numbers indicate the order in which statements are evaluated, regardless of the order in which they have been 
written or entered. They enable the normal order of evaluation to be chained; that Is, the execution of the progra m can 
branch or l oop through designated statements. Line numbers facilitate program debugging by permitting modification of 
any line without affecting any other lines in the program. 

Line numbers must be integers in ihe range of to 65, 535. It is good programming practice to number lines In In- 
crements of 5 or 10 (starting with Line 10) when first writing a program, to allow for insertion of additional lines when 
debugging the program. The system will not allow two lines to have the same line number. The latest line entered re- 
places the earlier one In its entirety, A line number followed immediately by a carriage return deletes that statement 
from the program. 

When the program is executed with the RUN command, BASIC evaluates the statements in the order of their line numbers 
starting with the smallest line number and going to the largest. 
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1. 3 BASIC CHARACTER SET 

BASIC recognizes the ASCII character set. In addition to the alphanumeric characters, BASIC uses the following special 
characters for specific functions. 

Keys Function 

$ Used to specify string variables. 

" Used to delimit string constants. 



< > 



Within a string constant string, angle 
brackets are used to introduce special 
character codes. 



Decimal Point. 
, (comma) Used to format output and delimit lists. 



Used to format output (also acts as a 
PRINT command). 



CARRIAGE Used to terminate a line. 
RETURN 



Used to group arguments in an arith- 

metic expression and to define sub- 
scripts for array elements. 



> = < Relational Operators. 
Arithmetic Operators. 



+ - 
*/t 



Spaces can be used freely when entering a program to make statements easier to read. They are ignored by BASIC 
except when contained in string literals; for example: 

30 LET B =A*2 +3 
30LETB=A*2+3 

Both of flie above statements mean the same to BASIC and are stored the same when entered. 
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1.4 WRITING A BASIC PROGRAM 

Statements may be entered via a Teletype or any other input device. When using a Teletype, the programmer terminates 
each statement with a carriage return. The foUowii^ is an example of a BASIC program. This example is explained in 
the following sections. 

105 REM - SOLVE A QUADRATIC EQUATION 
110 READ A, B, C 

120 LET X = B*B-4*A*C 

121 IF X < GOTO 999 

122 LET XI = (-B+SQR pC) )/2*A 
130 LET X2 = (-B-SQR (X) )/2*A 
240 PRINT XI, X2 

400 GOTO 110 

500 DATA - 1, 2, 3, + 2, 3, - 4, 2, 1, 6 

999 PRINT "NO REAL SOLUTION" 

In a BASIC program, single letters or single letters followed by a single digit represent program variables. A BASIC 
program terminates when there are no more program statements, when an END or STOP statement is encountered, or 
when an error condition occurs. Most programs can be considered to contain three phases. 

1. Providing data 

2. Performing calculations 

3. Printing answers 



1. 5 PROVIDING DATA 

One method of providing data is to write equations that contain the required values. The BASIC statement used for equa- 
tions is the assignment (LET) statement; for example: 

120 LET X = 3. 1416 * 18. 27 

where: the sjrmbol * means multiplication. 

The statement will cause 3. 1416 and 18. 27 to be multiplied and the result to be stored in a variable named X. However, 
writing values into equations is not the most efficient means of providing data. Programs are generally used for repet- 
itive computations with a large number of different values. Instead of writing values into an equation, BASIC uses vari- 
ables that can be assigned different values; for example: 

120 LET X = 3. 1416*Y 

To provide values, the programmer may use the READ and DATA statements. The READ statement contains the vari- 
ables that are to be assigned values and the DATA statement provides the values; for example: 

110 READ Y 

120 LET X = 3. 1416*Y 

130 DATA 40. 2, 7.8, 456.41, -.003, 184.6 

Each time the READ statement is executed, Y assumes a new value in the order of the values in the DATA statement. 
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1. 6 PROGRAM LOOPS 

Statements in BASIC programs execute in the sequential order indicated by their statement numbers. However, if a 
program is completely sequential, it is not possible to perform repetitive calculations on a number of input values . 

In the previous example, insertion of the following statement allows the READ and LET statements to be executed more 
than once: 

125 GOTO 110 

The GO TO statement causes a transfer back to statement Number 110. The program reads the second value for Y, 
(7. 8) and executes the LET statement again. The program will continue to loop in this manner until the data is ex- 
hausted, causing an error message. 

The GO TO statement is a means of transferring control to a part of a program in a non-sequential manner. Another 
useful statement in transferring control is the IF statement. For example: 

110 READ Y 

115 IF Y < GOTO 110 (skip the LET statement, if Y is negative) 

120 LET X = 3. 1416*Y 

125 GO TO 110 

Transfer in an IF statement depends upon whether the expression following the word IF is true or false. 



1.7 CALCULATIONS 

Data provided as input may be computed into answers. A simple arithmetic equation of the calculations to be performed 
must be written in such a way that the BASIC system can recognize the operations required. The statement used is the 
assignment (LET) statement. 

The LET statement is used to assign the result of a calculation to a variable. The calculation to be evaluated, called 
an expression, appears on the right side of the equal sign in the LET statement. 

The variable to which the expression is assigned appears on the left side of the equal sign. Iii the previous example, 
BASIC multiples 3. 1416 by the value assigned to Y and then assigns the result to the variable X. 

An expression is made up of elements described in Chapter 2 - simple variables, numbers, arrays, array elements, 
functions, and operators. Parentheses may be used in arithmetic expressions to enclose subexpressions. A subex- 
pression in parentheses is evaluated first. Within each expression or subexpression, arithmetic operations are per- 
formed in the following sequence: exponentiation first, multiplication and division next, and addition and subtraction 
last. When two operations are of equal precedence, such as addition and subtraction, evaluation proceeds from left to 
right. In addition to arithmetic operations, BASIC provides a number of standard mathematical functions, such as SIN 
(X). These are described in Chapter 2. 

An example of an expression to be evaluated and assigned to a variable is: 

50 LET A=A-(23*X/SIN(A**2) 
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1.8 PRINTING OUTPUT 

The PRINT statement may be used to print out results of calculations. For example: 

110 READ Y 

120 LET X = Y 

122 PRINT X 

125 GO TO 110 

130 DATA 40, 2, 7.8, 456.41, -.003, 184.6 

The PRINT statement is part of the loop, so that a value for X is printed out each time the LET statement is executed. 
Each value of X is printed out on a new line. The output would look as follows: 

40 

2 

7.8 

456.41 

-.3E-2 

184.6 

It is also possible to print out a message using the PRINT statement. The user might want an explanation of each value 
printed. For example, the statement: 

100 PRINT "VALUES OF X" 

could be added to print a heading precedli^ the numeric output. 



1. 9 PROGRAMMING EXAMPLE 

The sample BASIC program shown earlier is explained in detail below: 



105 REM - SOLVE A QUADRATIC EQUATION 
110 READ A, B, C 

120 LET X = B*B-4*A*C 

121 IF X < GOTO 999 

122 LET XI = (-B+SQR (X) ) /2*A 
130 LET X2 =(-B-SQR (X) ) /2*A 
240 PRINT XI, X2 

400 GOTO 110 

500 DATA -1, 2, 3, +2, 3, -4, 2, 1, 6 

999 PRINT "NO REAL SOLUTION" 



A program conmient or remark 

Read coefficients 

Compute b -4ac 

Check for complex solution 

Compute one solution 

Compute second solution 

Print solutions 

Loop to get new values 

Data for coefficients 

Error message 



This program solves the equations 



-X^ + 2X + 3 = 
2X2 + 3X - 4 = 
2X2 + X +6 = 



This program terminates following execution of statement 999 or if the data in the DATA statement is exhausted. The 
latter condition causes a data error message to be printed. 

In the above example the third group of coefficients (2, 1 and 6) will cause the "NO REAL SOLUTION" message. Once 
the program terminates, the user can enter a new DATA statement and re-execute the program. 



500 DATA 0, 1, 0, 4, 3. -12 
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1. 10 EDITING A PROGRAM 

The user controls the contents of his current program by statement number. In effect, every program statement the 
user types at the terminal must have a statement number. This number is matched by BASIC against statement numbers 
existing in the current program. By this means, tiie user can delete, insert, or change any given statement. 

If the user enters a statement number followed by a carriage return, BASIC searches the current program for the state- 
ment number. If found, the statement is deleted. If not found, no action is taken. 

If the user enters a statement number followed by a statement, BASIC searches the current program for the statement 
number. If not found, the statement is inserted in the current program. If found, the statement in the current program 
is replaced by the entered statement. 



1.11 EXECUTING A PROGRAM 

When the programmer has written and edited his program, he can execute it by giving the command: 

RUN 

The program executes startii^ at the lowest numbered statement. If no program errors occur (Appendix 1), the BASIC 
system prints any output from the program and outputs the massage: 

BASIC 

when execution is complete. 

When a RUN command is given without a statement number following it, the user is effectively running the program for 
the first time. Arrays must be dimensioned, strings must be given lengths, and variables have no associated values. 

The programmer has the option to interrupt his program while running either by pressing the ESCAPE key at the key- 
board under the Multi-user Executive or by a programmed STOP statement. When a running program is interrupted in 
this manner, all current string lengths, array dimensions, and variable values are maintained until the programmer 
issues another RUN command. 

The programmer has the option to execute while retaining all current information. To do so, he resumes execution by 
giving the command; 

RUN n . 

where: n is the number of some statement in the program at which execution is to be resumed. 

The programmer can resume execution at the statement at which the execution was interrupted or at any other state- 
ment in the program. 
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CHAPTER 2 
ELEMENTS OF BASIC 



2.1 NUMBERS 

On output, any number n in the range ,1 < |n | < 999999 is printed out without using exponential form. All other num- 
bers except zero are printed in six digit format with a decimal point on the left, followed by the letter E, followed by an 
exponent. 



Example 



Output 



2,000,000 


. 2E+7 


2,192,000 


,2192E+7 


20, 000, 000, 000 


. 2E+11 


-0 





108. 999 


108.999 


. 0000256789 


. 256789E-4 


26 


26 


-3.0 


-3 


.16 


.16 


.43E-2 


.43E-2 


1/16 


. 625E-1 



Internally, BASIC stores numbers in INTERDATA Single Precision Floating Point Format. 



0,1 



M 



3 



where: S is the sign of the mantissa M. (0 = positive, 1 = negative) 

M is the mantissa, considered to be a normalized six digit hexadecimal fraction. 
C is the integer exponent of 16 in excess 64 code. 



The rai^^ of floatingpoint numbers is approximately: 



5.4 *10"''9 through 7.2 * lo'^^ 



2. 2 ARITHMETIC VARIABLES 

The names of arithmetic variables are either a single letter or a single letter followed by a single digit. 
Examples: X, A, Al 
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2, 3 ARITHMETIC EXPRESSIONS 
Arithmetic expressions are composed of: 

1. Simple variables 

2. Array elements 

3. System functions 

4. User defined functions 

5. Constants 

6. Arithmetic operators 

7. Relational operators 

8 . Boolean operators 

The operators for arithmetic expressions are: 



SYMBOL 


TYPE 


EXAMPLE 


MEANING 


+ 


ARITHMETIC 


A+B 


Add A to B 


(unary) + 


ARITHMETIC 


+A 


Positive A 


- 


ARITHMETIC 


A-B 


Subtract B from A 


(unary) - 


ARITHMETIC 


-A 


NegativiB A 


t 


ARITHMETIC 


AtB 


A raised to the B power 


* 


ARITHMETIC 


A*B 


Multiply A times B 


/ 


ARITHMETIC 


A/B 


Divide A by B 



OR 



AND 



> 

< = 
> = 

< > 



BOOLEAN 


A ANDB 


RELATIONAL 


A = B 


RELATIONAL 


A < B 


RELATIONAL 


A > B 


RELATIONAL 


A < =B 


RELATIONAL 


A > =B 


RELATIONAL 


A <> B 



if A and B both 

1 if A or B not 

if either A or B are 

1 if A and B bolii not 

A equal to B 

A less than B 

A greater than B 

A less than or equal to B 

A greater than or equal to B 

A not equal to B 

(result is 1 if RELATIONAL 
is true; if RELATIONAL 
is false) 
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The order in which operations are evaluated affects the result. lii BASIC, unary minus or plus is evaluated first, then 
exponentiation, then multiplication and division, then addition and subtraction, then relational operators, then Boolean 
AND, and finally Boolean OR. When two operators are of equal precedence (* and /), evaluation proceeds from left to 
right. For example: 



20-A+B*C t D 

1. 20- A Is evaluated. 

2. C t D is evaluated. 

3. B is multiplied by the value from 2. 

4. The value from 1 is added to the value from 3. 



Unary minus and unary plus may appear only at the beginning of an expression or immediately following a left parenth- 
esis. 



Examples: -3+A 

A+B* (-C/2) 



The programmer can alter the order of evaluation by enclosing subexpressions in parentheses. A parenthesized sub- 
expression is evaluated first. Parentheses can be. nested, and the innermost parenthesized operation is always evalu- 
ated first. For example: 

20-( (A+B)*C) t B 

1. A+B is evaluated. 

2. The value from 1. is multiplied by C 

3. The value from 2. is raised to the power D. 

4. The value from 3. is subtracted from 20. 
Some examples of expressions are: 

Al-2 

SIN (K+. 02) 
A(I+1, J+1) * A/2 
SIN (COS (X) ) * (-D) 
1.5 * .0356 



2.4 ABRAYS 

An array represents an ordered set of numeric values. Each member of an array Is called an array element. Names 
of arrays are written the same as variable names. The name of an array may be the same as the name of a variable in 
a program, and are considered independent of each other. 
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2.5 ARRAY DEFINITION 

Most arrays are declared in a DIM statement, which specifies the name of the array and its dimensions. An array can 
have either one or two dimensions. The lower bound of a dimension is always zero; the upper bound is given in the DIM 
statement and is limited only by the amount of available user storage. If the upper bound exceeds user storage, an error 
message will result. 

Dimensioning information is enclosed in parentheses immediately following the name of the array in the DIM statement: 

DIM X (15), XI (2, 8) ■•— X is a one-dimensional array of 16 elements (0-15). 

XI is a two-dimensional array of 27 elements. 

If the programmer uses an array but does not declare it in a DIM statement, BASIC will define an array of 11 elements 
for each dimension. An undeclared one-dimensional array cannot have more than 11 elements. If the programmer does 
not need 11 or 121 elements for a given array and wishes to optimize space, he should declare the array in a DIM state- 
ment with the desired number of elements. 



2,6 ARRAY ELEMENTS 

Each element of an array is identified by the name of the array followed by a parenthesized subscript. The elements of 
array X (4) would be: 



X (0), X (1), X (2), X (3), X (4) 

For a two-dimensional array, the first number gives the number of the row and the second gives the number of the col- 
umn for each element. The elements of array A(2, 3) would be: 

A (0, 0) A (0, 1) A (0, 2) A (0, 3) 

A (1, 0) A (1, 1) A (1, 2) A (1, 3) 
A (2, 0) A (2, 1) A (2, 2) A (2, 3) 

An array element can be referenced with expression subscripts. Any variable or expression that is used as a sub- 
script must evaluate such that: 

S value < upper bound declared in the DIM statement 

If the variable or expression does not evaluate to an integer, BASIC will trucate to convert it to an integer i.e. , A (1. 1) 
and A (1. 7) are truncated to A (1). For example, some elements of array A (8, 8) might be: 

A (1+3, J) 

A (I, 5) 

A (ABS (I), I*J) 

If a subscript evaluates to an integer larger than the upper limit of the array's dimension, an error message is printed. 
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2.7 REDIMENSIONING ARRAYS 

It is possible to redimension a previously defined array during execution of a program. Redlmensioning does not affect 
the amount of storage originally defined for the array nor the current contents of the array. 

Redlmensioning may be used to change the subscripting of two-dimensional arrays. Suppose the user originally defines 
a 3 X 4 array A with the statement DIM A (2, 3). 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 



A.(0, 0) contains 1, A (0 , 1) contains 

2 A (2, 2) contains 11, and 

A (2, 3) contains 12. 



Array A may be redimensioned with the statement DIM A (3, 2) which transposes the dimensions of A. 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 



The values in A remain the same but 
the subscripts referring to those values 
have changed. 



Value 



New Subscript Old Subscript 



4 

6 

8 

11 



A (1. 0) 

A (1, 2) 

A (2, 1) 

A (3, 1) 



A (0, 3) 
A (1, 1) 
A (1, 3) 
A (2, 2) 



An array can be redimensioned only in such a way that it has the same or fewer elements than the original definition. 
For example, redlmensioning a 3 x 5 array as a 4 x 4 array causes an error. 

Subscript references outside the currently declared range of subscripts cause errors. For example, once array A 
above is redefined as A (3, 2). The use of the 3 as a column subscript, e. g. , A (2, 3) causes an error. 

Redlmensioning an array to have fewer elements (e, g. , redlmensioning B (3, 5) as B (2, 2) or redlmensioning A (6) i 
A (3) ) makes referencing the unused locations impossible and does not free these locations for other storage. 
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2.8 FUNCTIONS 

Certain standard mathematical functions are supplied as part of BASIC. They are: 



SIN 


(X) 


COS 


(X) 


TAN 


fX) 


ATN 


(X) 


LOG 


(X) 


EXP 


(X) 


SQR 


(X) 


ABS 


(X) 



The sine of X where X is in radians. 

The cosine of X where X is in radians. 

The tangent of X where X is in radians. 

The arctangent of X where ( -TT /2 < ATN (X) < TT /2). 

The natural logarithm of X. (X > 0). 

The exponential of X (i. e. , eX). . 

The square root of X. (X > 0). 

The absolute value t)f X. 



The arguments of functions SIN, COS, TAN, ATN, and ABS may be any real number. 

A negative or zero argument in the LOG function or a negative argument in the SQE function causes BASIC to print 
an error message. 

The argument of the EXP function should be within the range of values that will generate the largest and smallest possible 
real numbers, (-178 < X < 175). 

In addition to the standard mathematical functions, the following functions are supplied as part of BASIC, 



INT (X) The greatest integer not larger than X. 

END (X) Generate a random number between and 1. 

NOT (X) The Boolean complement of X. 

SGN (X) The algebraic si^ of X. 

LEN (S) The current length of string variable S. 

E O F (X) Test if file mark encountered on last I/O statement. 

VAL (S) Convert string variable S to a numeric value. 

STR$ (K) Convert X to a string value. 

ERR$ (X) Generate the error code on execution errors. 

ERL pC) Generate the line number on execution errors. 



For the RND, EOF, ERR$, and ERL Amotions, there must be a predefined variable or a constant as an argument, 
although the argument has no significance. A list of error messages that may be generated while executing a program 
can be found in Appendix 1. 

The INT function yields the largest integer less than or equal to the absolute value of its argument. 



INT (7. 25) = 7 
INT (-7. 25) = -7 
INT (12) = 12 
INT (-. 1) =0 
INT (1. 5) =1 
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INT may be used to round a number to the nearest integer. To round the value, add . 5 to the argument: 



INT (X+. 5) 



The RND function yields a random number having a value in the range: < value < 1. The function requires an argu- 
ment, although the argument does not affect the resulting random number. The argument can be any constant or pre- 
viously defined variable. 



RND(l) might yield .303561 

RND (X) might yield .911674 

The NOT function generates a result of if the argument is not 0, and a result of 1 if the argument is 0. 

NOT (-1) = 
NOT (2000) =0 
NOT (0) = 1 



The SGN function generates a result of +1 If the argument is positive, if the argument is 0, and -1 if the argument is 
negative. 



SGN (.37) = ! 
SGN (0. 0) = 
SGN (-2. 5) = -1 



The LEN function produces an integer representing the current length of its string variable argument. The argument 
of the LEN function must be a single unsubscripted string variable. If string variable A$ contains the string: 
"TOTAL l^ SUM" Then: 



LEN (A$) = 9 (the space between TOTAL and SUM counts as a character. ) 

The EOF function yields a 1 if the last I/O statement detected a file mark, and a if not. 

INPUT ON (7) X, y, Z 

IF EOF(O) = 1 THEN PRINT "EOF" 
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The VAL flinctton converts a string variable to its numeric value. If string variable A$ contains the string "123. 45" 
then: 



X = VAL (A$) 



would assign X the floating point value 123, 45. 

The STR$ function converts a numeric value to its character string value. If variable X contains the value 67. 891 
then: 



A$ = STR$ (X) 



would assign string A$ the value "67. 891". 

The ERR$ fiinction generates the two character error code when BASIC has encountered an execution error in 
program. 

The ERL function generates the line number where an execution error has occurred. 



Example: 



10 ON ERROR GO TO 450 

100 PRINT ON (3) "THE RESULTS ARE", X, Y 

450 Z=ERL (X) 

460 A$=ERR$ (X) 

470 PRINT A$, "ERROR AT", Z 

480 PRINT "RUN", Z,"TO CONTINUE" 

490 STOP 



If Device 3 is not correctly assigned to an output device, or if an error occurs in the attempted output BASIC will 
transfer to statement 450. 
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2. 9 STRING LITERALS 

A string literal is written as a character string enclosed in quotation marks. 

"WORDS FOR PRINT" 

All blank spaces within the quotation marks are significant. The quotation marks are not printed if the literal is out- 
put. If the user wishes to insert any eight bit character into a literal string he encloses the decimal equivalent of the 
character in angle brackets, i. e. , < n > . where n is an integer from to 255. A useful application is the placing of 
quotes within the quotation mark delimiters. 

" < 34 > I AM IN QUOTES < 34 > " 

If n is not within the specified range, then the brackets and n are treated as string literal characters. 
See Appendix 3 for a list of all ASCII characters and their decimal values. 

2.10 STRING VARIABLES 

An extension to BASIC permits use of string variables as well as literals. String variables are denoted by a variable 
name followed by a dollar sign. 

A$ 
Al$ 

String names may duplicate the name of numeric variables and arrays. For example; A, A(l) and A$ are all valid in the 
same program. String variables must be declared in DIM statements with a single dimension giving the maximum number 
of characters the string can contain, where the range is; 

1 < Dimension < 255 

Once the maximum length of a string Ms been declared in a DIM statement, it cannot be changed. 

Example: 20 DIM A$ (3), Cl$ (20) 

2.11 STRING ARRAYS 

A string array is a list of string variables. String arrays are defined in a DIM statement with two dimensions specified. 
The first is the maximum number of characters in each string, (as in the string variable DIM statement), and the 
second is the number of strii^s in the list. 

Example: 20 DIM D$ (8, 4), Dl$ (10, 10) 

where: D$ contains 4 strings each up to 8 characters. 

Dl$ contains 10 strings each up to 10 characters. 

2-a 



2. 12 STRING EXPRESSIONS AND SUBSCRIPTING 

String expressions are composed of string literals, string variables or string array elements. Valid references to 
these items are described below: 



Number of Subscripts 
in the DIM statement 



Number of Subscripts 
when referenced 



String literal 
String variable 
String array 



None 

1 

2 



None 

None or 2 
1 



String variables may be unsubscripted which causes reference to the entire contents of the string, or may have 2 sub- 
scripts referring to inclusive characters in the string. 

String arrays require a single subscript which refers to a specific string in the list. Subscripts may be any valid 
numeric expression, and follow the same rules as numeric array subscripts, with the exception that a subscript of 
is not allowed. 

Strings may not be redimensioned. An attempt to redimension a string will cause an error message. Strings may con- 
tain a variable number of characters. BASIC keeps track of the current number. If a 10 character string is loaded with 
a 3 character string, and the 10 character string is printed, the result is 3 characters output. 

Examples: DIM A$ (10), Al$ (9, 9) 

A$ References the entire string variable A$. 

Al$ (2) References the second string in string array Al$. 

Al$ (I) References the Ith string in the string array Al$. 

A$ (3, 7) References characters occupying positions 3 through 7 inclusive in string vari- 

ables A$ 

A$ (I, J) References characters occupying positions I through J inclusive in string vari- 

able A$, where I and J are integerized and I ^ J. 

A$ (1, 1) References only the first character in string variable A$. 

Examples of Illegal Subscripting: 

A$ (2) A string variable must have 2 or no subscripts. 

A$ (2, 1) Subscript 1 must be < to subscript 2. 

A$ (0, 20) Both subscripts out of bounds. 

Al$ (2, 2) Arrays must have one subscript. 

Al$ Arrays must have one subscript. 

Al$ (0) Subscript out of bounds. 

A double-subscripted variable allows the programmer to reference a subset of one or more characters within a string. 
String expressions can be used in assignment (LET) statements, PRINT statements, DATA statements, and in relational 
expressions of IF statements. 



20 PRINT A$( 1,4) 

30 LET B$ = "RESULTS ARE:" 

40 IF A$ (I, I) = B$ (J, J) GO TO 100 



50 INPUT C$, D$ (2, 2) 
60 LET Al$ (2) = "COLD" 



Print the first 4 characters of A$. 
Assign a string literal to B$. 
If the" ith character of A$ is equal 
to the Jth character of B$, trans- 
fer to statement 100. 
Input one or more characters for C$ 
and a single character for D$ (2, 2). 
Assign a string literal to the second 
strii^ of array Al$. 
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On the right hand side of an assignment statement, and in IF statements, string expressions may be concatenated by 
the operator (+). 



100 DIM A$ (50), B$ <50) 

110 LET A$ = "@2. 50 EACH, THE PROFIT MARGIN IS 15. 8%" 

120 LET B$ = A$ (1, 3) + "25" + A$ (6, 33) + "11. 2%" 



B$ contains the following, after statement 120 is executed; 
@2. 25 EACH, THE PROFIT MARGIN IS 11, 2%. 



Following are some string assignment considerations: 



20 LET A$ = B$ 
25 LET A$ = "" 

30 LET A$ = A$+B$ 

40 LET Al$ (3) = Al$ (2) + "AB" 



A$ is replaced by the contents of B$. 

A$ is replaced by the null string (the null string contains no 

characters and has a length of zero). 

Contents of B$ are appended to current contents of A$. 

Al$ (2) is combined with "AB" and is placed in Al$ (3). 



When characters are assigned to a string or part of a string, the number of characters available on the ri^t of the 
equal sign determines how many will be stored. All other characters remain unchanged. Assigning a string equal 
to the null string affects the length of the string only and does not change any characters in the string. 



100 LET A$ = "ABCDEF" 
110 LET B$ = "1" 



120 LET A$ (3,3) = B$ 
130LET A$ (3,6) = B$ 



120 and 130 both produce the same 
result: A$ = ABl (note: A$ (1,6) 
= ABIDEF) 



150 LET A$ (3,6) = B$+B$+B$ 



150 produces ABlll, since the ex- 
pression to the right of the equals sign 
contains three characters, (note: A$ (1,6) 
= AB111F). 



String assignments can cause the internal length of a string to be changed, 
and 130, LEN (A$) = 3. After 150, LEN (A$) = 57 



After 100, the LEN (A$) = 6. After 120 



When strings appear in the relational expression of an IF statement, the strings are compared character by character 
left to right on the basis of the ASCII collating sequence until a difference is found. If a character in a given position in 
string A has a higher ASCII code than the character in that position in string B, then string A is greater* If the char- 
acters in the same positions are identical but one string has more characters than the other, the longer string is the 
greater of the two. Use of strings in relational expressions is described in detail in the IF statement. 



20 LET A$ = "ABCDEF" 

30 LET B$="25 ABCDEFG" 

31 IF A$ > B$ GOTO 50 

32 IF A$ > B$ (4, 10) GOTO 50 



Triie. Transfer occurs. (A Is greater than 2). 
False. No transfer, (B(4, 10) has one more 
character than A$). 



33 IF A$ (1,4) = B$ (4,7) GO TO 50 True. Transfer occurs. 
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Notes on Strings 

1. If the right side of a string assignment statement contains more characters than will fit in the destination 
variable the excess characters are Ignored. 

DIM A$ (6) 

LET A$ = "ABCDEFGHIJ" (A$ contains ABCDEF) 

2. When a double- sub scripted variable appears on the left side of a string assignment, the new length of 
the variable is determined by the second subscript or the amount of data entered. 

DIM A$ (6) 

LET A$ = "AAABBB" (LEN (A$) = 6) 

LET A$(2,4) = "CCC" (LEN (A$) = 4) (A$ = ACCC) 

LET A$ (2, 4) = "DD" (LEN (A$) = 3) (A$ = ADD) 

LET A$ (2, 6) = "" (Null String) (LEN (A$) = 1) (A$ = A) 

Note that an explicit reference to A$ (1, 6) at this point ignores the length of A$ and yields ADDCBB. 

this characteristic may be used to delete trailing spaces from a string. Assume A$ was dimensioned as A$ (20). 

20 X = 20 

30 IF A$ (X,X) < > " "GOTO 70 

40 A$ (X,X)='"" 

50 X = X-1 

60 GOTO 30 

70 . 
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CHAPTERS 
BASIC STATEMENTS 



3.1 INTRODUCTION 

The statements available in INTERDATA BASIC allow the user to write programs using more advanced programming 
techniques as he increases his knowledge of the BASIC language. The statements listed below are described in detail 
in this chapter. They constitute the statements of INTERDATA Extended BASIC. 

The statements described in this section are: 



Statement 

BSP 

CALL 

DATA 

DEF 

DIM 

END 

ENDTRACE 

FOR 

GOSUB 

GO TO 

IF 

INPUT 

LET 

MAT 

NEXT 

ON 

PRINT 

RANDOM 

READ 

REM 

RESTORE 

RETURN 

REW 

SETTRACE 

STOP 

WFM 



Meaning 

Backspace a device. 

Call an assembly language subroutine. 

Define a block of user data values. 

Define a user function. 

Dimension arrays, string variables, and string arrays. 

Optional terminator of program. 

End trace of a running program. 

Set up a programming loop. 

Transfer to an Internal subroutine. 

Transfer control to a program statement. 

Conditional transfer to another part of the program; or conditional execution of a 
statement. 

Request data from an input device. 

Assign values to variables. 

Matrix operations. 

Terminate programming loop. 

Provide a series of possible transfer points. 

Write data to an output device. 

Reinitialize random number generator. 

Input data from the DATA block. 

Comment. 

Reinitialize data block. 

Return from an internal subroutine. 

Rewind a device. 

Start trace of a running program. 

Halt program execution and switch to keyboard mode. 

Write a file mark to a device. 
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3.2 LET 



Syntax: variable = expression 

LET variable = expression 

Use: To evaluate expression and assign the value to variable. Variable can be a numeric or string 
variable, or a numeric or string array element. Use of the word LET is optional. 

String expressions may be assigned to string variables, and arithmetic expressions may be 
assigned to arithmetic variables. 

The variable may be subscripted in the case of strings and numeric arrays. 

Examples: 12 LET B=C+2. 1417 
30 A=A+1 

51 LET Wl=( (A+B) *J/3)*COS (M) 
90 X=0 

101 LET A$="NOW" 

102 LETB$="IS THE" 
103B$^A$+B$+"TIME" 

104 LET B$ (1, 2) = A$ (3, 5) +"LET" 

105 El$ (3) = El$ (2) +A$ 
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3.3 DEF 



Syntax: DEF FNa (d) = expression 



where: 



Use: 



Examples; 



a is a single character. 

d is a single letter dummy variable fliat may appear in expression. 



To permit a user to define a numeric function that can be referenced during a 
program. The function returns a value to the point of reference. 

When a function is referenced, the constant, variable or expression appearing 
in the reference argument replaces dummy argument d in the expression. The 
reference argument may contain other user defined functions. 

In the function definition, expression can be any legal numeric expression including one con- 
taining other user-defined functions. There is no limit to function nesting, except that a user 
defined function may not call itself. 

Definition of a function is limited to a single line of text. For longer formulas, subroutines 
should be used. The DEF statement is not executable and acts merely as a definition. 



10 DEF FNA (X) = EXP (X t 2) 

20 LET Y = Y*FNA (. 1) 

30 IF FNA (A+3) > Y THEN 150 

130 LET P = 3. 1416 

140 DEF FNB (K) = X*P/180 

150 DEF FNS (X) = SIN (FNB (X) ) 

160 DEF FNO (X) = COS (FNB (X) ) 

170 FOR X=0 TO 45 STEP 5 

180 PRINT X, FNS pC), FNO (X) 

190 NEXT X 

200 LET X=FNS (FNO (X) ) +1 



; Definition of function FNA 
:Function reference; argument = . 1 
: Function reference; argument = A+3 



;Function FNB is nested within FNS 
and FNO 

:FNS and FNC are referenced with X 
having values 0, 5, 10, ... , 45 
:Function FNO is the reference argument of 

FNS 
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3.4 DIM 

Syntax: DIM array (dimi), array (dim^, diirig), string (dim^), string array (dim^, dinig) 

Use: To define, (1) the dimensions of one and two dimensional numeric arrays, (2) the maximum 

number of characters in string variables, and (3) the maximum number of characters (dim,) and 
number of elements (dimg) of strii^ arrays. The DIM statement is not executable and is used 
only to allocate storage. It may appear anywhere in a BASIC program, but must precede the 
usage of a variable or array it dimensions. 

Numeric arrays are dimensioned as follows: 

1. The upper bound is given in parentheses following the array name. 

2. For two dimensional arrays there are two upper bounds, separated by a comma. 

3. The lower bound of a dimension is always and does not appear in the DIM statement. 

String variable names are followed by a single dimension in parentheses. This gives the 
upper limit of the number of characters that the string may contain. The upper limit must 
be in the range: 

1 < limit 1255 

> 

String arrays have two dimensions, (1) the maximum number of characters in each strii^, 
and (2) the number of elements in the array. 

Numeric arrays and strings may appear in any order in a DIM statement. Any dimension 
may appear as a variable, constant, or expression. 

Example: 2 DIM A (5, 6), J (20), X (17), B$ (25). P$ (Z+1), Y(14, 10), Al$ (20. 10) 

where: A is a 6 x 7 element two dimensional array. 
J is a 21 element one dimensional array. 
X is a 18 element one dimensional array. 
B$ is a string with a maximum of 25 characters. 
P$ is a string with a maximum of Z+1 characters. 
Y is a 15 X 11 element two dimensional array. 
Al$ is a string array containing 10 strings of 20 characters each. 

Once a numeric array has been dimensioned, it may be redimensioned to an equal or smaller 
size. See Section 2. 7 for example. 

Once a string variable or array has been dimensioned it may not be redimensioned. If a nu- 
meric array is referenced before being dimensioned it is assumed to have dimensions of 10. 
All string variables and arrays must be dimensioned with a DIM statement before being used. 
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3.5 END 

Syntax: END 



Use: INTERDATA BASIC does not require an END statement as the last program statement. Pro- 
grams terminate at the last logically executed statement in the program (if an END statement 
or STOP statement Is not encountered). However, BASIC allows END statements for compat- 
ibility with BASIC programs written for other systems, and for use as a terminating statement 
in a LOAD or batch operation (see Chapter 4). 
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3.6 FOR and NEXT 
FOR 



SsTitax: FOR control variable = expresslonj ^ TO expresslong 

FOR control variable = expression TO expressio n STEP expression 

Use: To establish the beginning, terminating, and incremental values for control variable in a 

programmed loop. Control variable determines the number of times the statements contained 
in the loop are executed. 

The loop consists of statements following the FOR statement up to a NEXT statement that con- 
tains the name of control variable. The control variable in a FOR statement must be numeric 
and cannot be subscripted. 

expression j^ is the first value of the variable, 

expression ^ is the terminating value of the variable. 

expression g is the increment value added to the variable each time the loop is executed. If 
not given, the increment value is assumed to be +1. 

When the NEXT statement containing the variable name is encountered, the loop is executed 
again beginning with the statement following the FOR statement. The looping ends when the 
control variable is greater than the terminating value, expression o (less than the terminating 
value in the case of a negative increment value). When the loop terminates, control is passed 
to the statement following the NEXT statement, FOR loops may be nested to a depth of six. 
The FOR statement and its terminating NEXT statement must be completely nested. For ex- 
ample: 



Legal 





FOR X 




FOR Y 




__FOR Z 




L NEXT Z 




NF.XT Y 




NP^XT V 



Illegal 



. FOR X 
.FOR y 
.NEXTX 



_NEXT Y 



A FOR loop may call subroutines without interfering with the FOR loop. 
— FORX 

GOSUB ^ 
_. NEXT X 



RETURN 
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NEXT 

Syntax; NEXT control variable 

Use: To terminate the loop beginning with a FOR statement. The control variable contained in the 
NEXT statement must match a control variable contained in an uncompleted FOR statement. 

When the FOR statement conditions have been fulfilled, execution continues at the statement 
following Ihe NEXT statement. 

Examples: 5 FOR X = . 1 TO -, 5 STEP -. 1 
10 LET Y = X*EXP pi) 
20 NEXT X 

10 FOR I = 1 TO 10 
20 PRINT 2 ♦ I 

30 NEXT I 

10 DIM A (25) 

30 FOR 1=1 TO 25 

40 READ A (I) 
50 NEXT I 



10FORT = 1 TO 8 




12 FOR J = 1 TO 20 STEP I 




13READB(I, J) 
14 NEXT .T 


J Loop 


15 NEXT I 





I Loop 



Although FOR loops must be completely nested, early termination of loops is allowed. Execution of a NEXT statement 
cancels all FOR loops nested within it. 

10 FOR X = 1 TO 100 

20 FOR Y = 1 TO 50 

30 LET Z = A (Y) 

40 PRINT Z+X 

50 IF Z < GOTO 70 : Cancel Y Loop 

60 NEXT Y 

70 NEXT X 

The use of non-integer STEP values that cannot be represented exactly as hexadecimal floating point numbers could 
cause early or late termination of some FOR loops due to possible rounding errors. The user may modify the control 
variable within a FOR loop but he should insure fliat its value remains meaningful with respect to loop control. 
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3. 7 GOSUB and RETURN 



GOSUB 



Sjntitax: GOSUB statement number 

Use: To transfer control to the statement number , the first statement in a subroutine. The statement 
number may be in the form of a constant, variable or numeric expression. 

If the statement number is not an integer it is integerized by the INT function. GOSUB state- 
ments may be nested to a depth of six. A subroutine may call another subroutine or it may call 
itself. 



Examples; 



GOSUB 100 
GOSUB X 



RETURN 



Syntax: RETURN 

Use: To exit a subroutine, returning to the first statement after the GOSUB statement that caused 
the subroutine to be entered. 

A subroutine may contain more than one RETURN statement when logic mi^t cause the sub- 
routine to terminate at a number of different points. 

Examples: In the following example, RETURN causes the return to statement number 12 when the sub- 
routine is entered from statement 11; return is to statement 16 when the subroutine is entered 
from statement 13. 



10 LETX = 5 

11 GOSUB 50 

12 LETX = 7 

13 GOSUB 51 
16 STOP 



50 LET Y = 3*X 

51 LET Z= 1.2*EXP (Y) 
•53 PRINT X,Y 

54 RETURN 



Note that in the second call to the subroutine (statement 13) the value of Y is not changed. 
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3.8 GOTO 

Ssmtax; GO TO statement number 

Use: To transfer control to a statement that is not the nesrt sequential statement. If control is trans- 
ferred to an executable statement, that statement and those following are executed. If control 
is transferred to a non-executable statement (e.g. , DATA), the first executable statement fol- 
lowing the one to which transfer was made is executed. The statement number may be in the 
form of a constant, variable or numeric espression. If the statement number is not an integer 
it is integerized by the INT function. 

Example: 190 DATA 10, -5, -2, 6, -6, 21, -9 
200 READ X 

220 LET A = SQR pi ♦ 2) + Y*X *FNC (X) 
230 PRINT X, A 

240 GO TO 200 ■• Control will transfer back to statement 200 until all values of 

X have been read. 
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3.9 IF 



Syntax: IF expression [ GO TO J statement numb er 
C. THEN J — ^ 



IF expression THEN statement 

Use: To transfer control or execute a statement conditionally on the basis of wheQie r expression is 
true or false. — '- 



Expression: 



r^'ro o/t«7m .?r^' "°''*''°^ *^ ^^ P^^'*^ *° *^^ "*^*^'"^°' ^°«^ °"°*«r ^PP^^rs following 
^ £.7. ^^^^^^^°° ^^ t"^"®- If the expression is not true, control is passed to 

the next statement following the IF statement. 



The second format is a generalized form of the IF statement, 
statement or a GO TO statement may follow THEN, 



Any statement, including an IF 



expression may be an arithmetic expression or two string expressions separated by 
a relational operator. f-xaicu uy 



The relational operators are listed in Section 2.3. For the conventions used 
string expressions, see Section 2. 12. 



m comparing 



A numeric expression without a relational operator is considered false if it has a value of 
and is considered true in all other cases. 



Examples: 100 IF X + Z = THEN 10 

150 IF . 01 > = SQR (X) GOTO 410 
200 IF A$ < > "YES" GOTO 85 

15 IF ABS (X) GO TO 410 
90 IF A+B THEN 27 

10 IF X+Y = THEN LET I = X+Y 



160 IF X THEN IF SIN CX) < .1 GOTO 200 



176 IF A > B OR C > D AND E > F THEN STOP 



Expressions containing relational 
operators. 

Expressions that evaluate to 
zero or non-zero. 

If X+Y=0 is true, the LET statement 
is executed and control passes the 
next statement in the program; if X+Y 
= is false, the LET statement is not 
executed and control passes immedi- 
ately to the next statement. 

The first IF checks the value of X, 
If it is zero, control passes to the next 
statement in the program. If it is not 
zero, the IF statement following THEN 
is executed and control passes to the 
next statement in the program or to the 
statement 200, depending upon the value 
of the sine ot X. 

Multiple relational e3q)ression using 
Boolean operators. If A > B or 
if both C > D and E > F then the 
program stops. If not, control passes 
to the next statement. 
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3.10 INPUT 

S3nitax: INPUT variable-list 

INPUT ON (expression ) variable-list 

INPUT ON (expression^, expression2) variable-list 

where: variable-list may contain numeric variables and array elements, string variables and array 
elements 

Use: To input values for numeric and string variables at run time from a specitied input device. 

The value of expression ^, integerized, refers to the logical unit of the input device. If none 
is specified, the default logical unit is 5 (normally assigned to the user's terminal). The value of 
expression p, integerized, refers to the logical record number of a random access file from 
which we are readii^. If expression ^ is not assigned to a random access file, then expression ^ 
is ignored. Each element of data read is delimited from the next by a comma or a single blank 
(numeric data only). The last data value must terminate with a carriage return or two consecu- 
tive blanks (numeric data only). A minus sign Is recognized preceding numeric Items In the In- 
put data. 

Arithmetic and string variables may be intermixed in the variable list of the INPUT state- 
ment. The data input must match the variable list in both type of data and number of data items. 

Character strings in the data list may optionally be enclosed in quotation marks. Character 
strings may include any characters includii^ digits. Since data is delimited by commas, a 
comma cannot be part of a character string unless it is a string enclosed in quotation marks. 

25. 34, THE KESULT IS: , The second item in the data list is a string of 16 characters 

including the blanks. 

25. 34, "THE RESULT IS:" , The second item in the data list is a string of 14 characters, 

including the blanks but excluding the quotation marks. 

If the data list does not contain enough values to fill the input list, or values are found to be 
invalid, an error message is printed and BASIC enters the command mode. 

During typing of a data list, the programmer may use the line erase (#) or character erase 
(■• — ) keys to correct errors in the list. 

The user may wish to precede an INPUT statement with a PRINT statement that will indicate 
at the terminal which variables are to be input. 

40 PRINT "INPUT A, B, AND C" 
50 INPUT A, B, C 

Input Examples: Basic Statement Response 

INPUT X, Y, Z$ (3) 3, 2, DOG 

-.12E-20, 0,"DOG" 
3, 2 (invalid: not enou^ data) 

3, DOG, 2 (invalid; data does not match variable type) 
INPUT ON (1) A$, B$, C$, D$ (X) JOHN, SMITH, "301 1ST AVE", MAILMAN 
INPUT ON (1, X*Y+Z) A, B, C(X) . 3, , 2, . 407 ^ 
PRINT ON (7,X) A;B;C 31 64 32 (write values on a disc file) 

INPUT ON (7,X) A, B, C (read values from the disc file) 
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3.11 ON 



[goto "I 

Syntax: ON expression -j THEN J- statement number list 

LgosubJ 

(goto I 
„,, „„„„ ■< }■ statement num ber 
ON ERROR LTHENJ 

Use: To provide a series of branch points. The statement number to which transfer is made depends 

upon the evaluation of expression . For a transfer to occur the value of expression must correspond 
to the sequence number of one of the statement numbers in the list. 

If expression evaluates to an integer less than one or greater thajn the sequence number of the last 
statement number in the list, the ON statement Is ignored and control passes to the next statement. 

If e^gressira does not evaluate to an integer, it is truncated to an integer by the INT function. 

ON-GO TO and ON-THEN are equivalent forms. 

ON-GOSUB begins execution at the subroutine specified in statement number list and continues until 
a RETURN statement is encountered. At this time control Is returned to the statement following 
the ON-GOSUB statement. 

The ON ERROR form of the ON statement does not cause immediate transfer to occur but provides 
a transfer line number for BASIC if an execution error is generated in a program. 

Examples: 38 ON X-6 GO TO 500, 175, 100 

If X-6 does not evaluate to 1, 2, or 3, the statement is ignored. 

If X-6 evaluates to 1, transfer is made to statement 500; if the value is 2, transfer is 
made to statement 175, and if the value is 3, transfer is made to statement 100. 

21 ON X GO SUB 100, 200, 300, 400 

X must have a value from 1 to 4 to cause transfer. 

33 ON ERROR GO TO 150 

If an execution error is generated anywhere in the program following this statement 
transfer will be to statement 150. If another ON ERROR GO TO statement is en- 
countered, execution errors will cause transfer to the new statement number. 
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3.12 PRINT 

Syntax: PRINT expression list 

PRINT ON (expression . ) expression list 

PRINT ON ( expression ]^, expressionp ) expression list 

where: expression list is a list of numeric variables or array elements, string variables or array 
elements, expressions, and string literals. 

Use: To output on a specified output device the current values of any expressions, variables, arrays 
or the text of any string literals in the expression list. 

The value of expressionj^, integerized, refers to the logical unit of the output device. The ON 
clause is optional. If none is specified, the default logical unit is 5 (normally assigned to the 
Teletype). The value of expressio ng integerized refers to the logical record number of a ran- 
dom file to which we are writii^. If expressio nj^ is not assigned to a random access file, then 
expression ^t is ignored. 

Output Formatting ; The PRINT statement allows the user to control output formatting or accept default formatting. 

Number Representation 

Any real or integer number that can be represented as six digits and a decimal point is printed out without using expon- 
ential form. A minus sign is printed if the number is negative. Trailing zeros and decimal points are deleted. 

All other numbers are printed in the format: 

(-). nnnnnnE±e(e) ' 

where: n is a digit. 

E indicates exponentiation, 
e is a digit of the exponent. 
( ) parentheses indicate optional parts of the number. 



Number 


Printed Output 


. 00000002 


. 2E-7 


-.0002 


-,0002 


200 


200 


-200. 002 


-200. 002 


2, 000, 000 


.2E+7 


-20, 000, 000, 000 


-. 2E+11 


-2. 000 


-2 


00.0 
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The print line is divided into nine 14 character zones. Zones begin at print positions 1, 15, 29, 43, 57, 
71, 85, 99, and 113. A comma between items tn the expression list of the PBINT statement indicates 
"space to the next zone". Once the last print zone has been used, the next value is printed in the first 
print zone of the next line. If a PRINT statement ends with a comma, it is considered to continue on to 
the next PRINT statement. Only a PRINT statement ending in a carriage return or a filled up print line 
can cause the actual output of data. 



10 LET X=5 

30 PRINT X, (X*2),X t 2, 

60 PRINT X ♦ 4, X+25,pC/2), X-100 



Note terminating comma on first PRINT 
statement controls the output of the first value of 
the next PRINT statement. 





1 


15 


29 


43 


57 


71 


85 




i 


i 


i 


i 


i 


1 


1 


PRINT LINE 1 


5 


10 


25 


625 


30 


2.5 


95 



(PRINT position) 



When an output value is longer than a single zone, for example, a long character string, the printing is spaced to the 
next free zone to print the next value. A numeric value will not be truncated or continued on the following line. If 
the complete value cannot fit in the final zone, it is printed on the next line. 

10 LET X = 25 

20 PRINT "THE SQUARE ROOT OF X IS: ", SQR (X) 



1 15 

THE SQUARE HOOT OF X IS 



-Position 



29 •• 

i 

5 •« Value' 



When print lines are generated by more than one PRINT statement, the logical unit is determined from the PRINT 
statement causing the output. . 



Example: PRINT Y, A, 

PRINT ON (3) B 



Y, A and B are written to logical unit 3. 
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Compact Zone Spacing 

The user can obtain a more compact output by use of the semi-colon between list items. The semi-colon inhibits spac- 
ing to a print zone, leaving only a single space between values output. Note that like the comma, a semi-colon at the 
end of a PRINT statement determines the position of the first value of the next PRINT statement. 



5 LET A = 4 

10 LET B$ = "THE RESULTS ARE" 

15 LET C$ = "FINAL" 

20 PRINT A; A+A; B$; A t A 

25 PRINT "END OF THIS JOB"; A+A; A-10; B$; C$ 



13 6 20 22 ■• Position 

ill ii 

4 16 THE RESULTS ARE 256 -• Value 



1 15 17 19 22 

i i i ; i 

END OF THIS JOB 8 -6 THE RESULTS ARE FINAL 



-Position 
-Value 



Commas and semi-colons may exist in the same PRINT statement. The line formattii^ rules for each are applied. 



5 LET A = 17.6 

10 LET B = 5 

15 LET A$ = "THIS IS A TEST" 

20 PRINT A,B;A;B, A$; A+B;A-B 

25 PRINT "THIS LINE EXCEEDS ONE ZONE", A;B,A*5,A$ 



1 

i 

17.6 



15 



17 



22 



29 



44 



49 



i i ; 



i ; 



17.6 5 



THIS IS A TEST 22. 6 12. 6 • 



-Position 
-Value 



1 29 34 43 56 •• — Position 

I i i ; i 

THIS LINE EXCEEDS ONE ZONE 17. 6 5 88 THIS IS A TEST 
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Spacing to the Next Line 

If ttere is no comma or semi-colon terminating the last Item of a PRINT statement, the edited text is output on the next 



10 LETX=5 




20 PRINT X, (X*2) 
30 PRINT X*3 




40 PRINT X-25; (X*2) 
50 PRINT X-100 




1 5 

i i 
5 

15 


15 
10 


-20 10 




-95 





-Position 
- Values 



Tabulation 



It is possible to tabulate to a particular print position using the TAB function: 

TAB (expression) 



where: 



expression evaluates to an integer representing the character position of the next list item 
following the TAB function. The TAB flmction tabulates up to 132 character positions 
If the ejq)resslon in the TAB function evaluates to a number greater than 132. the TAB is 
Ignored. The semi-colon or comma delimiter following a list Item is ignored when a list 
item is TABed. =- 

10 DATA 6, -7, 9, -11 

20 READ A, B, C, D 

30 PRINT TAB (5), A; TAB (10), B; TAB (15), C; TAB (20), D 



1 


5 


10 


15 


20 


1 


1 


i 


i 


i 




6 


-7 


9 


-11 



- Position 
■ Value 
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Printing with a (;) Semi-Colon 

The word PRINT may be substituted by a semi-colon (;) for speed of entry. 
Example: ; 3*L0G (17) is equivalent to 
PRINT 3* LOG (17) 

Other PRINT Examples: 



10 FOR K = 1 TO 10 
20 PRINT K 
30 NEXT K 

1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
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3.13 PRINT USING 

Syntax: print USING string, expression list 

PRINT ON (expj^) USING string; , expression list 
PRINT ON (exEj, exp „) USING string, expression list 



where: Expression list is a list of numeric or string variables, numeric or string array elements 
expressions, and string literals. ' 

String specifies formats of the fields in which the value of each of the expressions in the list 
is to be output. The format of string is described below. String may be a string literal or 
strmg variable. The ON clause is described under Section 3. 12 PRINT. 

Use: To output current values of any expressions, variables or array elements appearing in the 
expression list in conjunction with the field formats specified by string. 



Formatting Rules and Examples 



1. Since the output field formats are specified by string, all formatting conventions used in the PRINT state- 
ment (TAB function, comma, and semi-colon) are ignored within the expression list. 

2. Within.stri2g, a number of format fields and string literal characters for output may appear. A format 
field is made up of combinations of the following characters. J w . « lormat 



The format field characters may appear within string as format field definition characters or as part of 
a string literal. BASIC differentiates format fields from string literals by the syntax of formaTfSs 



For example: "TWO FOR $2. 75" 
"TWO FOR $$$.@@ 

"ANSWER IS -85" 
"ANSWER IS 



$2. 75 are characters of a string literal. 

$$$.@@ is a field format (a $ followed by an appropriate field 
format character — another $ in this case). 
-85 are characters of a string literal. 

-@@@ is a field format (a - followed by an appropriate field for- 
mat character — an @ in this case). 
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3. Format fields are separated by the appearance of any non-format character in the string. 



format literal format 



( A = blank) 



field 



data field 



4. String expressions may appear in the expression list of the PRINT USING statement and are superimposed 
on a field format in the following manner: 

- Each character of ike string replaces a single format field character, (any one of the format field 
characters). 

- Strings are left justified in the format field, with a fill of spaces when required. 

- When the character string is longer than the format field, the string is truncated. 



PRINT USING "-$$§@, @@+@", "FIVE", "THIS IS A TEST", "12379, 821943" 
results in: FIVE THIS IS A 12379. 8219 

Note that the last string contains numbers, but it is treated as a string literal, because it is enclosed 
in quotes. 

5. When there are more expressions in the expression list than field formats in string, the existing for- 
mats are used repetitively. 



"@@@@ AT $@@@,@@ PER §@@" 



The first, fourth, seventh, etc. , expressions in the list are formatted using the field format 
The second, fifth, eighth, etc. , expressions in the list are formatted using the field format 
The third, sixth, ninth, etc. , expressions in the list is formatted using the field format @@@. The em- 
bedded blanks, AT, and PER are string literals. 



5 PRINT USING "@@@.@@ A ", A, B, C, 
A A 1.40 A A 18.90 A A 26.70 



possible output; number of expressions in the 
list exceeds the number of field formats. 
( A = blank) 
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6. The special characters: 



are used in formatting numeric output as follows: 



Digit Representation (@) 

For each @ in the field format, a digit (0-9) or a space is substituted. 
Field Format 



Data 


Output 


Remarks 


15 


AAA 15 


Right justify digits 
in field with leading 
blanks. 


-399 


A A 399 


Signs and other non- 
digits are ignored. 


1.95 


A A A A 2 


Onlv Intep-ers nr-A re 



9999999 



***** 



presented; the number 
is rounded to an integer. 

If the data is too large 
for the field, all asterisks 
are output. 



Decimal Point (.) 

The decimal point indicator (,) places a decimal point within the string of digits in the fixed character 
position in ^^*ich it appears. Digit positions (@) following the decimal point are filled; no blank spaces 
are left in these digit positions. When the value to be output contains more fractional digits than the 
field format decimal indicator allows, the fraction is rounded. 

Field Format 



Data 




Output 


Remarks 


18 




AAA 18, 00 


Fractional positions 
are filled with zeros. 


29. 347 
0.079 




A A A 29. 35 
A A A A 0.08 


Rounding occurs on 
fractions. 


998037. 


06 


****** + s)t 


W/fipn tli*i xraliici lo +f\^ 



.0006 



???????? 



large a field of all as- 
terisks is output. 

When the value is too 
small to be represented, 
a field of all question 
marks is output. 
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Fixed Plus or Minus Sign (+ or - ) 

A sign character may appear as a single plus (+) or minus (-) sign in either the first character position 
in the format field or the last character position in the format field. The signs have the following effect: 

+ prints a + in the given field position if the data is positive and prints a - in the given field 
position if the data is negative. 

- prints a - in the given field position if the data is negative and leaves a blank space in that 
field position if the data is positive. 

When a sign character is used, any leading zeros appearing in the data are replaced by blanks, except 
for a single leading ?ero Impiediately preceding a decimal point. 



Field Format 



Data 

26.5 
4.01 

-5.786 



Output 


Remarks 


+26. 50 


Fixed sign inserted. 


+ A4.01 


Blanks precede the 
value. 


-A 5. 79 


Fixed + allows minus 
sign to be inserted. 



-884.0 
8.7 

000.06 

-1.487 
-234. 



A A 8. 70A Extra positions filled 
by a space 

A A 0. 06 A The last leadii^ zero 
before the decimal 
point is not suppressed. 

A A 1.49- 

234. 00 - 



Floating Sign ( ++ 



or -- 



J 



A floating sign appears as the first two (or more) signs in the field format. Floating positive (++) out- 
puts either a plus or minus sign immediately preceding the data; floating negative (— ) outputs either a 
blank space or minus sign immediately preceding the data. 

Positions occupied in the field format by the second sign and any additional signs can be used for numeric 
positions without field overflow occurring. 



Field Format 



Data 
-80 

987 
8 



Output 

-80. 00 



Remarks 

Second and third signs 
are treated, as digit 
positions (@) on output. 



8.00 
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Fixed Dollar Sign ($ ) 



A fixed $ sign may appear as either the first character or second character in the string, causing a $ 
to be placed in that character position. The $ may appear as the second character if it is preceded by a 
fixed sign. A fixed $ causes suppression of leading zeros in the data value. 



Field Format 



Data 

80.54 
-80.54 



Output 

A $ A 80. 54 

$ A 80.54- 



Floating Dollar Sign 



.) 



A floating $ consists of at least two $ characters beginning at either the first or second character posi- 
tion in the string, and causes a $ sign to be placed in the character position immediately preceding the 
first digit. 

Only one floating character (sign or $) is permitted in a given format field. 

Field Format Data Output Remarks 



48.20 



-9.0 



+ A A $48. 20 $ sign may be replaced 
by digits like floating 
+ and - signs. 

A $09. 00- Leading zeros are not 

suppressed in the @ part 
of the field. 



Separator Comma (. ) 

The separator (, ) places a comma within a string of digits in the fixed character position in which it 
appears in the field format. However, if the comma would be positioned in a field of suppressed zeros 
(blanks), a space is output in the comma's position. 



Field Format 



Data 
70.6 

6000 
00033 



Output 



Remarks 



+$ AAA 70. 60 Space printed in place of 
comma. 



+$6, 000. 00 
A +00, 033 



Comma is printed when 
leading zeros are not 
suppressed. 



Exponent Indicator ( ♦ ) 

Four consecutive up arrows (fftt) are required to indicate an exponent field and are replaced by 
E+nn, where each n is a digit. In E format output, the first significant digit of the data value will 
start in the first numeric position of the format field. 



Field Format 



HH 



Data 



170.35 



-.2 
40 



Output 
+17. 04E+01 
-20. OOE-02 
+40. OOE+OO 
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3.14 RANDOM 

Syntax: RANDOM 



Use: To permit reuse of the set of random numbers. The RANDOM statement re-initiallzes the 

random number generator to Its initial starting point. This facilitates debugging of programs 
that Use the random number generator. 
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3. 15 READ and DATA 



READ 



Syntax: READ variable list 

where: Variable list can coilt^n arithmetic variables and array elements, and string variables and 
array elements. 

Use: To read values from a data block into the variables or array elements listed in the READ state- 
ments. 

The order in which variables appear in the READ statement is the order in which values are 
read from the data block. Values appearing in all DATA statements in a program can be con- 
sidered as a continuous single data block. Normally, READ statements are placed in the pro- 
gram at those points at Mrtiich data is to be manipulated, while DATA statements may be placed 
anywhere. A pointer is moved to each consecutive DATA value as a value is retrieved for vari- 
ables in READ statements. If the number of variables in the READ statement exceeds the num- 
ber of values in the data block, an error message is printed. The RESTORE statement can be 
used to reset the pointer to the beginning of the first DATA statement. 

The type of variable in the list of the READ statements must match the corresponding value 
type in the DATA statement. An attempt to mix arithmetic and string values will result in 
an error message. 



DATA 



Syntax: DATA data list 



Use: 



Examples: 



To provide values to be read into variables or array elements appearing in READ statements. 
Numbers, string literals, numeric and string expressions may appear in DATA statements. 
Each data element is separated from the next item by a comma. DATA is a non-executable 
statement. If a running program encounters a DATA statement, it is ignored. 
15 READ X, Y, Z 



20 READ N 



24 FOR I = TO 10 

25 READ B (I) 

26 NEXT I 



40 DATA 4. 2, 7,5, 25.1, -1, .1, .01, .001, .0001 

45 DATA .2, .02, .002, .0002, .015, .025, .3, .03, .003 

The first three data values are read into X, Y, and Z respectively. The value -1 is read into N. The 
next 11 values, . 1 through . 3, are read into the 11 elements of array B. 



10 READ 



30 GO TO 



A, B, C$, E 



10 



50 DATA 1, 10, "JACK", , 21 

51 DATA -1, 1, "JILL", . 22 

52 DATA X*Y+2, SIN pC), D$+ "WATER", . 23 

Each series of data values, contained in the three DATA statements will, in turn, be read into variables 
A, B, C$ and E. 

Note that the numeric values in the DATA statement correspond to numeric variables in the READ statement 
and the string value corresponds to the string variable. 
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3.16 REM 

Syntax: REM text comment 

Use: To insert comments within a program. The text following REM is stored and is re-produced 
as it appears when a listing of the program is printed. Although the REM statement is non- 
executable, storage Space is required for the text. 

Example: 90 REM - SUBROUTINE TO FIX EXTENTS 
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3.17 RESTORE 

Syntax: RESTORE 



Use: To permit reuse of the data block. RESTORE sets the data block pointer to the first value 
in the first DATA statement. 

The next READ statement following execution of a RESTORE statement will begin reading valuer 
from the first DATA statement. 

Example: 20 FOR I = TO 10 

30 READ B (I) Data values 1 to 11 are read Into elements of Array B 

40 NEXT I 

50 RESTORE 

60 READ A, B, C Data values 1, 2, 3 are read into A, B, and C respectively. 



500 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14. 



15 
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3.18 STOP 



Syntax: STOP 

Use: To halt the execution of a program at some point within the program. When a STOP statement 
is encountered, BASIC will cease execution and print the message: 



STOP n 



where; n is the line number of the STOP statement. The system will wait for a keyboard command. 

Example: 10 IF X > GOTO 40 
20 PBINT "ERROR" 
30 STOP 

The message STOP 30" is printed on the terminal. 
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3,19 CALL 



Syntax: CALL sub*, P ,.,.., p 
1 — n 

where: sub# is a positive integer from 1 to 32, 767 identifying an assembly language subroutine. 
?!» • • • Tn ^^® optional parameters to the subroutine where (0< n < 8) 

Parameters may be arithmetic or string variables, or array elements. Expressions are not 
permitted as parameters. 

Use: To call a subroutine written in INTERDATA Common Assembly Language from a BASIC 
program. 

waien BASIC enters a CALLed assembly language subroutine: 

1. Register 15 points to a stack containing the parameter addresses. 



R15- 



ADDRESS OF PI 



ADDRESS OF P2 



ADDRESS OF P8 



2, Register 14 contains the return address to BASIC. 

3. Register 1 contains the user's BASIC work area pointer and must not be used by a 
subroutine at any time. 

For BASIC to establish the linkage from the subroutine number to the subroutine entry 
pomt, the user must assemble a subroutine table with and in front of his subroutines 
For single-user BASIC, a relocatable program containing the table and all the sub- 
routines must be loaded immediately following the OS under which BASIC is to run (be- 
fore the BASIC interpreter is loaded). For Multi-user BASIC the program must be load- 
ed mmiediately after the Multi-user Executive (03-058) and before the BASIC interpreter. 

The subroutine table is a list of all assembly language subroutines available to BASIC 
programs. For each subroutine a list of three address length constants is required, 
contalnii^ the following: 

- Subroutine number 

- Subroutine starting address 

- Number of parameters expected 

The table is terminated by any negative subroutine number. 
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Example of a subroutine table and its subroutines: 



SBRTB 



DC 


7 


DC 


ASUB 


DC 


4 


DC 


4 


DC 


BSUB 


DC 





DC 


-1 



SUBROUTINE NUMBER 
SUBROUTINE ENTRY POINT 
NUMBER OF PARAMETERS 
SUBROUTINE NUMBER 
SUBROUTINE ENTRY POINT 
NUMBER OF PARAMETERS 
END OF SBRTB 



ASUB 



(coding for subroutine A) 



BR 14 



RETURN 



BSUB 



(coding for subroutine B) 



BR 14 
END 



RETURN 



Legal calls from BASIC to the above subroutines are: 



CALL 7, A, B, C(10), D 
CALL 4 



Illegal calls which would result in an error message would be; 



CALL 7, Q, B 
CALL 4, Q 
CALL 2, A, B 



Not enough parameters. 
Too many parameters. 
No subroutine number 2. 
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3, 20 REW, WFM and BSP 

Syntax: REW logical unit 

WFM logical unit 

BSP logical unit 

where: Logical unit is an integer logical unit number previously assigned to magnetic tape, cassette 
tape, disc or drum. 

Use: To provide utility control to the above devices. 

REW - rewind the logical unit. 

WFM - write a file mark on the logical unit. 

BSP - backspace the logical unit one record. 

mf r^ T^ ""7.^^ an expression evaluating to an integer. Any non-integer value is integerized with the 
INT function. If logical unit is not assigned to any of the above devices, the command is ignored. 

Example: Skip forward to the first file mark on logical unit 7 and backspace over it. 

lOX = 7 

20 REW X 

30 INPUT ON (7) Y 

40 IF NOT (EOF (0) ) GOTO 30 

50 BSP X 
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3.21 MATRIX OPERATIONS 

Matrix statements allow the user to manipulate two-dimensional arrays as matrices. In BASIC, matrix statements 
begin with the word MAT. Following is a list of the matrix statements available in BASIC. 



Statement 



Use 



MAT READ A, B, 
MAT INPUT A, B, 
MAT PRINT A, B, 

MAT A = B 



MAT A = B + C 
MAT A = B - C 



MAT A = B *C 

MAT A = (express ion) *B 
MAT A = INV (B) 

MAT A = TRN (B) 

MAT A = (expression) 
MAT A = IDN 
MAT A = DET 



Read DATA values for previously dimensioned arrays. 

Input values for previously dimensioned arrays. 

Print current values of previously dimensioned arrays, (The 
semi-colon print delimiter can also be used. ) 

Matrix A is dimensioned to the dimensions of matrix B and the 
values of B are stored into A. 

Add or subtract matrices B and C, The dimensions of B and C 
must be identical. Dimension A to the dimensions of B and C 
and store the result into A, 

Matrix multiply B and C . Dimension A to the dimensions of the 
resulting matrix and store the values into A. The dimensions of B 
and C must be compatible as defined later in the section on matrix 
multiplication. 

Scalar multiply matrix B by the parenthesized expression. Dimen- 
sion A to the dimensions of B and store the values into A 

Invert matrix B. Dimension A to the dimensions of B and store 
the values of the inverse matrix into A. B must be a square 
matrix. 

Transpose matrix B. Dimension A to the dimensions of the re- 
sulting matrix and store the values into A. A and B must be two 
distinct arrays. 

Store a constant value in all elements of A. 

Store the identity matrix in A. 

Store the determinant of matrix A into element A (0, 0) of array A. 
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MATRIX SUBSCBIPTING 



Arrays to be operated on as matrices must be dimensioned as two dimensional arrays; that is, a row matrix 
should be defined as A (l,n), not A (n). 

It should be noted when manipulating arrays as matrices, that matrices do not have zero subsc ripts. That 
portion of an array that has zero subscripts is ignored. For example, the following coding examples will 
produce identical printouts. 



10 DIM A (4,4) 

20 FOR 1 = TO 4 ■* — values stored in zero subscript elements 

30 FOR J = TO 4 

40 READ A (I, J) 

50 NEXT J 

60 NEXT I 

70 MAT PRINT A 

80 DATA 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 



25 values for array A 



10 DIM A (4,4) 

20 FOR 1 = 1 TO 4 •• — no values stored in zero subscript elements 

30 FOR J = 1 TO 4 

40 READ A (I, J) 

50 NEXT J 

60 NEXT I 

70 MAT PRINT A 

80 DATA 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 



16 values for matrix A 



In the first case, data is stored into all locations of array A; in the second example, data is stored only 
into those locations with non-zero subscripts. When the MAT PRINT statement is executed the following is 
the result in both cases: 



2 
3 
4 
5 



2 
3 
4 
5 



Like arrays, matrix elements are stored by row in ascending locations in memory. A matrix dimensioned as: 

20 DIM A (3, 3) (first dimension represents rows and second dimension represents columns) 

is stored as: 



"\Columns 
Rows^s^ 





1 


2 


3 





A(0, 0) 


A(0,1) 


A(0,2) 


A(0,3) 


1 


A(l, 0) 


A(l,l) 


A(l,2) 


A(l, 3) 


2 


A(2,0) 


A(2, 1) 


A(2,2) 


A(2, 3) 


3 


A(3, 0) 


A(3, 1) 


A(3,2) 


A(3, 3) 
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The elements would be stored in the following order: 
Element Position Element 



1 


A (1,1) 


2 


A (1,2) 


3 


A (1,3) 


4 


A (2, 1) 


5 


A (2, 2) 


6 


A (2,3) 


7 


A (3, 1) 


8 


A (3,2) 


9 


A (3,3) 



The row and column are both unused. 



REDIMENSIONING MATRICES 



Matrices, like arrays, may be redimensioned at any time by a DIM statement as long as the new dimensions 
do not exceed the size of the matrix given in the original DIM statement. 

10 DIM A (15, 14) ■* 210 elements in matrix (240 in array A) 

20 DIM A (20,7) •• 140 elements 

30 DIM A (10, 10) -• 100 elements 

40 DIM A (20,8) ■• 160 elements 



MATRIX MATHEMATICS 

Matrix Assignment 

MAT A = B 



The elements of matrix B are stored in matrix A. 'A' must have already been dimensioned. 
Given the statement: 

10 MAT A = B 



where: B is the matrix; 



il 



2 4 6 8' 
3 9 7, 



Matrix A will assume the dimensions of B and the values: 



\0 



4 6 8' 

3 9 7, 



A and B may have different dimensions. If A is not large enough to be dimensioned as B, an error message 
will result. 
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Addition and Subtraction 

MAT A = B + C 
MAT A = B - C 

Matrices B and C must have the same dimensions. Only a single arithmetic operation is permitted in one 
statement. The operands of the addition and subtraction operation may be the same as the matrix appearing 
on the left hand side of the = sign. 




illegal 
legal 



Matrix addition and subtraction is scalar arithmetic performed element by element. Given the statement: 
10 MAT A = B + C 



If B and C are matrices having the values: 




5\ / 6 4\ 

4 I and I -2 ) 
1 / \l.5 4 / 



then the resultant value for A is; 




Scalar Multiplication 

MAT A = ( expression ) * B 

where: Expression may be any numeric expression and must be enclosed in parentheses. 

Scalar multiplication is performed element by element. The matrix in the expression may be the same as the 
matrix variable on the left hand side of the = sign. Matrix A will assume the dimensions of matrix B. Given 
the statement: 

10 MAT A = (LOG (X) ) *B 
LOG (X) is evaluated first. If LOG (X) evaluates to 2. 5 and B is the matrix: 



/2 -3N 

V.3 Q I 



then A is the matrix: 



(: 



5 -7. 5 ' 

75 0, 
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Constant Matrix 

MAT A = ( expression) 

Each elemtnt of matrix A, except for values in row zero and column zero, is set to the value of expression 
by this statement. Expression must be numeric and enclosed in parentheses. 



For example: 



Assume A is a 3 x 3 array as follows; 



2 


3 


6.5 


7 


1 


7 


18 





3 


1 


1.5 


-2 


4 


2 


7 


8 



The statement MAT A = (0) will have the following results: 



2 


3 


6.5 


7 


1 











3 











4 












The statement MAT A = (X-X+1) will have the following results: 



2 3 6.5 7 
111 1 

3 11 1 

4 1 11 
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Identity Matrix 

MAT A = IDN 



The major diagonal of matrix A is set equal to ones and the remaining elements of the matrix are zeroed 
by this statement. 

The major diagonal is the diagonal that starts at the final element of the array and runs diagonally upward 
from the last element until the first row is encountered. 

Assume DIM A (4, 4), B(4, 1), C(2, 3) 

Examples of the identity matrix are; 



10 MAT A = IDN 
10 

10 

1 





In a square matrix, the major diagonal terminates at the first 
element of the matrix. 



20 MAT B = IDN 







1 



If a matrix contains only one column, only the last element of the matrix is con- 
sidered on the major diagonal. 



30 MAT C = IDN 
10 

1 



If a matrix is two-dimensional but not square, the major diagonal 
does not terminate at the first element of the matrix. 



Matrix Determinant 

MAT A = DET 

The determinant of matrix A is computed and stored in element A (0, 0) of array A. Matrix A is unchanged. 
Assume A is a matrix as follows • 



MAJOR OPERAND MINOR OPERAND 



10 MAT A = DET 
20 PRINT A (0, 0) 

The output produced is: 1 



MAJ MIN 

DET = (2 X y) - (7 X 1) = 8 - 7 = 1 



NOTE 
The determinant of a 2 x 2 matrix is defined in the section Inverse Matrix. 
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Matrix Transposition 

MAT A = TBN (B) 
A matrix is transposed by reversing its rows and columns. A matrix cannot be transposed into itself. 

200 MAT A = TRN (B) 



where: B = 



(9 5 5 9\ 
) 
13 8 7/ 



When the statement is executed, A assumes the transposed dimensions of B and 

(9 1> 
I I I 
9 7/ 

Matrix Multiplication 

MAT A = B*C 

In matrix multiplication, the number of columns of the first matrix (B) must match the number of rows 
of the second matrix (C). The resultant matrix A is re-dimensioned to have the same number of rows as 
B and the same number of columns as C. If A is not large enough to be re-dimensioned in such a manner, 
an error message will result. For example: 

10 DIM B (3,5), C (5,4), A (6,6) 



50 MAT A = B*C 

A will become a 3 x 4 matrix. 

The matrix appearing on the left hand side of the equals sign cannot appear as a matrix within the express- 
ion. Since the columns of B must match the rows of C, a statement of the form: 

60 MAT A = B*B requires that B must be a square matrix 
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To obtain the matrix product of B*C, each row of B is multiplied by each column of C, Each row/column 
set is added together to find the resultant matrix element. For example, given the foUowii^ two matrices, 
B (3,2) andC(2, 2): 



B 




(1 1) 



then: 



130 MAT A = B*C 

■ B (1, 1) *C (1, 1)+B(1, 2)*C(2, 1) 
B (2,1) *C (1,1)+B(2,2)*C(2,1) 
B (3,1) *C (1,1)+B(3.2)*C(2,1) 



B (1, 1)*C(1, 2)+B(l, 2)*C(2, 2) 
B (2, 1)*C(1, 2)+B(2, 2)*C(2, 2) 
B (3, 1)*C(1, 2)+B(3, 2)*C(2, 2) 



) 



10*(-l)+3*7 


10*(-2)+3*8\ 


/ll 


4 


l*(-l)+5*7 


l*(-2)+5*8 ) : 


= (34 


38 


0*(-l)+4*7 


0*(-2)+4*8/ 


\28 


32 





2/ 



Matrix multiplication is not associative. For example, an attempt to execute the statement, MAT A = C*B, 
using the matrices B (3, 2) and C (2, 2) defined above, will result in an error message since the number of 
columns of C do not match the number of rows of B. As another example, given the following two square 
matrices; 



then: 



-=c; I) -c -i) 



130 MAT A = B*C 



(10*0+3*4) 
(1*0+5*4) 



(10*(-l)+3*6) \ 
(l*(-l)+5*6) / 



/12 8X 

\ 20 29 / 



If the expression is reversed: 



140 MAT A = C*B 



/ (0*10 + (-1) * 1) (0*3+(-l)*5)> _ / -1 -5 \ 
V (4*10 + 6*1) (4*3+6*5) J ~ \ 46 42 / 
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Inverse Matrix 

MAT A = INV (B) 

The matrix appearing in the ejqjression must be a square matrix (at least 2x2). The matrix appearing 
on the left hand side of the fltatement may appear on the right hand side, i.e. , matrices may be inverted 
into themselves. 

Matrix inversion requires a knowledge of matrix determinants and of cof actors of matrix elements. De- 
terminants and cofactors for 2 x 2 matrices are described here. For larger matrices, consult a math- 
ematics text. 

The determinant of a 2 x 2 matrix is obtained by multiplying along the diagonals and subtracting the second 
diagonal from the major diagonal; 



1 2 

3 4 I 

1 5 I 

3 20 



= (1*4) - (2*3) = -2 
= (1*20) - (5*3) = 5 



An inverse of a matrix is defined such that the product of a matrix and its inverse (via matrix multiplica- 
tion) is always the identity matrix i. e. , the product of the determinants of the matrix and its inverse is al- 
ways one. The two matrices above would have inverse matrices whose determinants were - . 5 and . 2 re- 
spectively. 

Cofactors of matrix elements of a 2 x 2 matrix are obtained by: 

1. Reversing the elements along the major diagonal. 

2. Changing the signs of the elements along the other diagonal. 

To obtain the inverse matrix, scalar multiply the cofactors by the determinant of the inverse matrix: 
If: 



MAT A = (^ ^\ 
\S 4/ 



then: 



(4 -2 \ / 2/9 -1/9 \ 
) = ( J 

-3 6 / \-l/6 1/3/ 
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If: 



MAT B 



\ 3 10 / 



then; 



-<='-'-'• (-3 1)-(J :l} 



By multiplying the matrix and its inverse we can verify the procedure: 



i 3 10 j * (-.6 .4 ) = ( 1 ) 



BASIC will invert any square matrix except one having a determinant of zero, i.e. , a singular matrix. 

Because of inaccuracies inherent in matrix inversion, an inverse of a matrix may not be as accurate as 
desired. Accuracy may be improved by an error reduction approximation. 



10 DIMA(N,N), B(N, N), C(N, N), D(N, N) 



100 MAT A = INV (B) 
110 MAT C = A*B 
120 MAT D = IDN 
130 MAT D = EH-D 
140 MAT C = D-C 
150 MAT D = A*C 
160 MAT A = D 



Calculate the Inverse of B. 



D is now an improved version of A. 



This process may be repeated as many times as necessary until the elements of C in 110 are as close to 
the identity matrix as desired. 

A matrix to be inverted must have at least one element whose absolute value is greater than one. To 
invert a matrix not satisfying this requirement, multiply it be some constant (C) large enough to increase 
any element's absolute value to greater than one. After computing the inverse multiply the inverse 
matrix by 1/C. 
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INPUT AND OUTPUT OF MATRICES 
MAT READ Statement 



MAT READ list of matrices 



The MAT READ statement is used to read values from DATA statements Into the elements of a previously 
dimensioned matrix or list of matrices separated by commas. 

10 DIM A(2, 3), B (2,2) 
20 MAT READ A, B 



50 DATA 1, 2, 3, 4, 5, 6, -1, -2, -3, -4 

Values from the data block are read into A and B by rows as follows: 
Element Contents 



A(l,l) 


1 


A(1.2) 


2 


A(l,3) 


3 


A(2,l) 


4 


A(2,2) 


5 


A(2,3) 


6 


B(l,l) 


-1 


B(l,2) 


-2 


B(2,l) 


-3 


B(2,2) 


-4 



MAT INPUT Statement 

MAT INPUT list of matrices 

MAT INPUT ON (expression ) list of matrices 

The MAT INPUT statement is used to read values from an input device into the elements of a matrix or a 
list of matrices. The logical unit of the input device is determined by expression. The ON clause is optional 
and defaults to logical unit 5. 

Example: 10 DIM A (2,3), B (2,2) 

20 MAT INPUT ON (1) A, B 



INPUT DATA is: 1, 2, 3 

4, 5, 6 
-1,-2,-3,-4 

Values input are assigned to the matrix elements in the same mamier as in the MAT READ statement. 

The user inputs the data values for each element of the matrix, delimited by commas, on one or more in- 
put records. 

The user must begin the values for each matrix on a new input record. A line of data containing 

too many values will cause an error message to print. BASIC will continue to INPUT until all matrix 

elements have been filled. 
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MAT PRINT Statement 

MAT PRINT list of matrices 

MAT PRINT ON (expression ) list of matrices 

The MAT PRINT statement is used to output the elements of a matrix or a list of matrices, by row on a 
list device whose logical unit is determined by expression. Each row of a matrix is printed on a new 
print line. If a row of values is too large to fit on a single print line, the excess columns are continued 
on the next line. Full print zone spacing is used if a matrix in the list is followed by a comma or carri- 
age return. If a matrix is followed by a semi-colon compact zone spacing is used. The ON clause is 
optional and defaults to logical unit 5. 



Examples: 



MATRIX A = 



2 

-1 
4 

7 



3.5 
3 

5 




MATRIX B 



(; 



2 
4 



MATRIX C 



= (: 1) 



MATRIX D 



il 



2 4 .11 13 

20 21 22 23 24 



15 \ 
25 / 



30 MAT PRINT A, B; C, D 



3.22 SETTRACE and ENDTRACE 

Syntax; SETTRACE 
ENDTRACE 



1 


2 


3.5 


4 







-1 


3 


2 




2 


4 


5 


6 




3 


7 





1 




15 6 7 3 2 










174 3 14 










1 


-3 








4 











1 


2 


4 


11 


13 


15 










20 


21 


22 


23 


24 


25 











Use: To cause the statement numbers of each BASIC statement being executed to be printed on the 
user's console. 

After a SETTRACE statement, all statement numbers are printed until an ENDTRACE 
statement is encountered. 



3-42 



CHAPTER 4 
COMMAND MODE OPERATIONS 



4.1 INTRODUCTION 

la command mode operation, the user can; 

- Execute programs. 

- Request information about the contents of his program and variables. 

- Edit programs. 

- Perform dynamic debugging. 

- Perform desk calculator operations. 

- Make assignments for file I/O and perform file directory maintenance under the Multi-user Executive 
only, (03-058). 

These functions are carried out by issuing keyboard commands. Keyboard commands start with a command word, 
which may be followed by arguments, and terminate with a carriage return. Some of the commands are keyboard 
versions of certain BASIC statements; BASIC can recognize such a command since it is not preceded by a line number. 



4. 2 CONTROL KEYS 

Escape key 

or 
Data switch 15 



Pressing the Escape key (control, shift K) under the Multi-user Executive or depressing 
Data switch 15 under BOSS or DOS, essentially means "interrupt the current operation". 

If a program is being executed, execution is suspended and the message: 

STOP n 

is printed, where n is the statement number before which execution ceased. The system 
reverts to command mode. If already in the command mode, either of the above actions 
is ignored. Neither of these features Is available under other systems. If the program 
is running imder OS/32ST or OS/32MT, pressing the escape key causes those systems ' 
to PAUSE the BASIC Interpreter. 

When the user is writing and editing BASIC programs at the keyboard or when he is respond- 
ing to an INPUT request, pressing the # key results in deletion of the line he is currently typ- 
ing. He may then retype the line. 

BASIC outputs a carriage return/line feed and the user may replace the deleted line, as shown 
in the following example: 



80 PRINT "TATOL # 

80 PRINT "TOTAL = ", X 



When the user Is writing and editing BASIC programs at the keyboard or when he is respond- 
ing to an INPUT request, depressing the *— key results in the deletion of the last character in 
the current line. He may then retype the character. 
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The following example shows character deletion and replacement: 



80 PRINT "TA *- OTO ••— AL = ", X 



The statement will appear in the program as: 



80 PRINT "TOTAL = ", X 



4.3 KKYBOARD COMMANDS 

Keyboard commands begin with a keyword, recognized as a command by BASIC. Some commands include one or more 
arguments following the keyword. A keyboard command is terminated by pressing carriage return ( .. ) and is im- 
mediately executed by BASIC. 

All BASIC statements and File I/O statements may be written as keyboard commands except those that are only under- 
stood as part of the current program. The statements that cannot be used as commands are DEF, END, FOR NEXT 
ON, DATA, REM, STOP, GOTO, GOSUB, and RETURN. All other statements may be written as commands with their 
appropriate arguments. If a command does not begin with a keyword, BASIC expects an assignment (LET) command. 



In addition to BASIC statements, there are a number of additional commands that are recognized by BASIC: 



PAUSE Terminate user-BASIC interaction and return to the operating system. 



LOAD Enter program statements from a file into the current program. 



LIST List statements of the current program. 



NEW Clear user area of all statements and variables. 



RENUM Renumber the statements in the current program. 



RUN Execute the current program. 



SIZE Print the size of the current program and the space still available. 



DELETE Delete a disc file name from the disc directory of files. 



FILES List file names in the disc directory. 
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4.4 PAUSE 



Command: PAUSE 



Use! This command is valid only for the BASIC Interpreter running under BOSS, DOS or RTOS. 
The PAUSE command gives control to OS at the keyboard. To continue BASIC, use the OS 
CONTINUE command. 



Example: 



PAUSE 
AS 3,62 
CO 



Assign the line printer under BOSS 
Continue BASIC 



4.5 NEW 



Command: NEW 



Use: This command clears all currently loaded statements and variables. This command should 
be given before beginning input processing of a new current program. 



Example: 



NEW 



4.6 LOAD 

The user can read a BASIC program into memory in several ways. It may be loaded from a disc file, input from the 
Teletype, or input from another device such as the paper tape or card reader. Once it is read in, it is called the cur- 
rent program. A current program can be listed, modified if necessary, and executed. It can also be saved as a file 
on disc or on another device. 



Command: LOAD logical unit number 



where: logical unit number refers to a device or file containing BASIC statements in ASCII format. 

Use: This command causes the BASIC statements contained in the file to be read into the current 
program. 

If statements in the file have the same statement number as a line in the current program, the 
new line replaces the current line. Statements in the file having statenient numbers differing 
from those in the current program, are inserted m their proper sequence in the current pro- 
gram. Thus the user can write or edit lines in the current program using an ASCII file as in- 
put in the same way as he would input new program statements on the Teletype. 

The file to be LOADed may have been created by a LIST command (see LIST command de- 
scription) or could havie been written off-line. Any ASCII format Input device can be used for 
LOADing program lines. 

The LOAD command terminates upon recognition of an END statement or abnormal device 
status (i.e., file mark). 



Examples: 



LOAD 2 
LOAD 
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4.7 LIST 



Batch Operation 

The LOAD command permits batch BASIC operation from any sequential file. To perform a batch load 
and go operation, assign the desired logical unit and enter a LOAD logical unit number command. BASIC 
will continue to read both program statements and immediate mode commands from the input device until 
an-END statement is encountered. 

LOAD 1 Entered from the keyboard (Logical Unit 1 assigned to the card reader). 

The following is a list of batched card input to load and execute two programs. 

99 REM PROGRAM 1 

100 X = 1. 235 

101 PRINT ON (3) X, X+. 03 

RUN run first program 

NEW clear first program 

100 REM PROGRAM 2 

200 PRINT "ALL IS WELL" 

202 PRINT Sm (. 356) 

204 PRINT COS (. 821) 

LIST ON (3) list second program 

RUN run second program 

NEW clear second program 

END return to keyboard control 



Command: LIST 

LIST ON (number) 

LIST ON (number) statement-no - 

LIST ON (number) statement-no. ^ TO statement-no „ 

where: statement-no ^^ is the first statement to be listed. 

statement-no o is the last statement to be listed. 

(number) refers to the logical unit number of the device to be listed on. The ON (number) 
clause is optional and defaults to logical unit 5. 

Use: This command causes all or part of the current program to be listed in ASCII on the specified 
device. 

LIST - List the entire program starting at the lowest numbered statement. 

LIST n-j^ - List only the single statement numbered n, . 

LIST nj TO ng - List from the statement numbered n- through statement n„. 

A file created by the UST command can be read by BASIC using the LOAD command. 

Exsimples: LIST 200 

LIST 600 TO 900 

LIST 

LIST ON (3) 

LIST ON (3) 700 TO 9999 
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Programs that are listed after being entered from a keyboard or prepared off-line may appear slightly dif- 
ferent from the original text: The following is a list of possible changes: 



1. All unnecessary spaces are deleted. 



2. Unnormalized E format numbers are normalized. 



3. Leading zeros are deleted. 



4. Spaces are inserted around reserved words that are not functions. 



Examples: Entered 



Listed 



100 PRINT X, Y 
100 LET X=. 03E-8 



100 PRINT X, Y 
100 LET X=. 3E-9 



010 NEXTX 



10 NEXT X 



100 LET X=l. 000 



100 LET X=l 



4.8 RUN 



Command: RUN 



RUN statement-no 



where: Statement-no is the number of the statement in the current program where execution is to 
begin. 

Use: This command causes all or part of a current program to be executed. The effects of the RUN 
commands are as follows: 



RUN - Clears all variables, un-dimensions all arrays and strings, does a RESTORE, 

and then starts the current program at the lowest numbered statement. 



RUN n - All existing information (variable values, dimensioning, etc. ) resulting from a 

previous execution of the current program is retained and the current program 
is started at the statement numbered n. This form of the RUN command allows 
the user to examine variables of his program, modify statements and to retain 
current values when resuming execution. 



Examples: RUN 

RUN 250 
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4.9 RENUM 



Command; RENUM 

RENUM number-^ 
RENUM number -, number 



Where: number j^ is the number given to the first statement. 

number n ig the statement number increment. 



Use: 



The RENUM command causes all statements in the current program to be renumbered by 
assigning the Initial statement a value of number, and incrementing by number- for each 
succeeding statement. If number j ^ and numberp are omitted their default values are assumed 
to be 10. 



Examples: 

RENUM Renumber starting the first statement with 10 and incrementing by 10. 

RENUM 500 Renumber starting the first statement with 500 and incrementing by 10. 

RENUM 500, 5 Renumber starting the first statement with 500 and incrementing by 5. 

If an IF, ON or GOSUB statement conatins a reference to a non-existent statement number, an error 
message (LN-ERR) results and the RENUM operation is aborted. 



NOTE 

If this condition occurs some line numbers may have been 
changed and others may not. 



4.10 SIZE 



Command: 



SIZE 



USE: 



This command causes a printout at the terminal of the decimal number of bytes 
used by the program (including data areas if the program has been run) followed 
by the total number of l^tes that are still available. 



Example: SIZE 

560 3750 

560 bytes are used, 3750 bytes are remaining. 
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4. 11 IMMEDIATE MODE BASIC STATEMENTS 

Any BASIC statement that can meaningflilly be written as a keyboard command can be used in that mode. 
Certain statements havii^ meaning only within the context of a program cannot be used as keyboard com- 
mands; these are DEF, ON, END, FOR, NEXT, DATA, STOP, GOTO, GOSUB, RETURN, and REM. All 
other statements can be used as Immediate mode commands. Some uses of these statements are: 

Desk Calculator. Forms of the PRINT command can be used to request values for expressions. 
PRINT EXP (SIN (3.4/8) +.51032 
;LOG (2. 71) 

Desk Calculator - Using Program Values. Besides numeric operands, the user can include program 
variables. The user can STOP a running program and examine values of his program variables. 

10 LET X = 1. 03 USER PROGRAM ENTRY 

20 STOP USER PROGRAM ENTRY 

RUN USER COMMAND ENTRY 

STOP 20 BASIC MESSAGE 

PRINT X USER COMMAND ENTRY 

1.03 BASIC PRINT OUTPUT 

PRINT X*X+3 USER COMMAND ENTRY 

4. 0609 BASIC PRINT OUTPUT 

Dynamic Program Debugging. A running program can be interrupted (using the ESCAPE key. Data 
switch 15 or by programmed STOP statements) at a number of different program points. The current 
values of the variables can then be checked at those points and corrections made in the program, either 
to the statements or variables, as necessary. The programmer can use the RUN command to re-execute 
or, use the RUN statement-no command to restart the interrupted program at the point of interruption. 



Example: 



(ESCAPE) halt the program 

STOP 300 

PRINT X;Y examine variables 

. 05 . 03 

LET X = . 08 make modification 

RUN 300 restart 
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4.12 ERASE 



Command: 



ERASE 

ERASE statement - noi 



ERASE statement - no^ TO 



ERASE statement - noj TO statement - no2 



Where: 



statement - no is the first statement to be erased 
statement - no, is the last statement to be erased 



Use: 



This command causes all statements between and including the specified 
limits to be erased from the current program. 



Examples: 
ERASE 

ERASE n. 



ERASE n- TO 
ERASE n TO n 



- Erase the entire program starting at the lowest numbered 
statement. This form is equivalent to NEW. 

- Erase only the single statement numbered nj. 

- Erase from statement n^ to the end of the program. 

- Erase from statement n^ to statement number n„. 
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CHAPTER 5 
OPERATING INSTRUCTIONS 

5. 1 SINGLE-USER BASIC UNDER BOSS AND DOS 

1. Load BOSS or DOSS with the 06-024 Relocating Loader, the 06-025 General Loader, or when loading 
from disc or drum, the 07-046 Bulk Storage Bootstrap Loader. 

2. If there are any assembly language subroutines, they must be loaded now with the BOSS or DOS resident 
loader without setting any loader BIAS. 



Example: LO 13 



Load from the paper tape reader under BOSS. 



3. Load the BASIC Interpreter with the BOSS or DOS resident loader. To obtain the maximum amount of 
BASIC work area, the user should not set a loader BIAS. 

4. When loading is complete the user should issue a ST instruction with no operand to the OS. BASIC will 
print the message: 

BASIC 



and enter the command mode, reacfy for user statements. 

If assembly language subroutines were loaded, the ST command should contain, as its operand, the 
BIAS of BASIC which can be found in the BIAS XXXX message that was printed by the OS when BASIC 
was loaded, 

5. BASIC uses storage from the top of BASIC to the top of memory as the user's work area. If the user 
desires more work area and does not use MATRIX operations or the PRINT USING statement, he may 
allows his work area to overlay these sections of BASIC. After loading BASIC, location UTOP in DOS 
or BOSS points to the first location of the user work area. To gain added work area, UTOP should be 
set to point to location MAT in BASIC to overlay the MATRIX operations or to location PRNUSE to over- 
lay both the MATRIX operations and Hie PRINT USING function. Note the following map: 

TOP OF MEMORY 



TOP OF BASIC 


USER 

WORK 

AREA 






MATRIX OPERATIONS 


\ 


PRNUSE 


PRINT USING 


\ 




BASIC 
INTERPRETER 


VALUE 

AFTER 

/ LOADING 




ASSEMBLY LANGUAGE 
SUBROUTINES (if any) 


/ BASIC 




OS 


UTOP 


/ 




(BOSS or DOS) 
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See the BOSS or DOS listing for the address of location UTOP in the OS, See the BASIC Interpreter list- 
ing for the relative addresses of MAT and PRNUSE, and use the value in the BIAS XXXX message (printed 
when loading BASIC) to compute the absolute addresses of MAT and PRNUSE. After loading BASIC and before 
issuing the ST command, the user may reset UTOP using the OP and RE command in the OS. 

/xXXX + relative address \ .^ UTOP 



) 



\ of MAT or PRNUSE 



5. 2 SINGLE-USER BASIC UNDER RTOS 

The BASIC Interpreter may run under RTOS after being established as a "task" using the RTOS Task Establisher Pro- 
gram (TET), 

1. Load RTOS from disc or drum with the 07-046 Bulk Storage Bootstrap Loader. RTOS will type the 
following on the system console: 

*SUPER HH:MM:SS RTOS 

2. Load TET (03-042) from paper tape or the system library using one of the following commands: 

tape - LOAD TET , 13 
library - LOAD TET 

RTOS will respond with: 

*LODER HH:MM:SS TET: LOADED 

3. Allocate scratch area for TET by using one of the following; 

ALLO C6, 20, 50 (Disc System, . Device C6) 



REWIND 5C6 (Drum System, Device 86) 

4. Start TET by entering: 

START TET 
on the console. TET will reply: 

ENTER DATA 
after a series of RTOS system messages. 
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5. The following commands should now be entered to establish BASIC. 



BASIC A 


BASIC B 


BASIC C 


PRIO 2 
OPT 






ASSl 5, 02 


ASSl 5, 22 


ASSl 5, 12 



ESTA BASIC - names the task being created. 

PRIO X - where X may be a number from 2 to F. 

OPTIOOIO 1000 0000 0000 - (makes BASIC core resident and allows floating point). 

ASSl 5, X - where X is the physical device number of the BASIC terminal (e. g, X = 2 for a Telelype). 

GET XXXX - where XXXX is the amount of space in hex to be allowed for the user work area. 

At this time user written assembly langu^e subroutines may be loaded. Load the subroutine table 
and subroutines (as described in Section 3. 19) using the command LOAD XX where XX is the load 
device address. 

LOAD XX - Load the BASIC Interpreter from some sequential device. (XX is the address of the 
device). If assembly language subroutine were loaded, enter the command MAP. 

REWIND - GO TO RTOS 

TASK XX - Output the entire task where XX is the physical device # of output device to contain the 
established BASIC. 

END - End TET operation. 

REWIND FILE 

6. At this time the BASIC task is ready to be loaded by RTOS. Enter the RTOS command. 
FORMULTI EXCL BASIC 

LOAD BASIC, XX 
where: XX is the physical device containing the BASIC task. 
BASIC will load, and RTOS will respond with: 

*LODER XX:XX:XX BASIC: LOADED 

7. If no assembly language subroutines were loaded, BASIC may be started by issuing the RTOS command. 

START BASIC 

If subroutines were loaded, refer to the MAP output by TET. Under the heading ENTRYS is a hex 
address followed by the name BASIC. To start BASIC enter tiie command 

START BASIC, , XXXX 

where: XXXX is the MAP address of BASIC minus X'6E' 
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8. If the PRINT USING or MATRIX functions are not desired, their code in BASIC may be allocated for 
user work area by the following operation. 

Issue the RTOS command; 



MAP 



The system will respond with: 



BASIC XXXX ~ YYYY 



where: XXXX and YYYY are the task limits in memory. The XXXX address plus four is the 

address of "UTOP", where an adjustment can be made to allow overlay of the unneeded 
BASIC functions. 



Calculate the new UTOP value by adding to X'6E' the relocatable address of MAT (to overlay MATRIX 
operations) or PRNUSE (to overlay PRINT USING and MATRIX operations) from the BASIC listing. 
That value should, in turn, be added to the 'XXXX' address obtained from the MAP command. The 
sum should then placed in the 'XXXX'+4 (UTOP) location by the REPL command. 



'mat or \ 
PRNUSE ) + X 6E' + XXXX — XXXX+4 



5.3 MULTI-USER BASIC UNDER THE MULTI-USER EXECUTIVE (03-058) 

Multi-user BASIC, with up to 32 terminals and file handling capability, may be obtained by using the Multi-user 
Executive with the BASIC Interpreter. For detailed system generation procedures and operating instructions, 
see the Multi-user Executive document 03-058A15, provided in the Multi-User Basic Operating System 
Documentation Package, S90-203M99. 

5.4 MULTI-USER BASIC UNDER RTOS 

The BASIC Interpreter may be used to create a multi-user terminal system under RTOS. To accomplish this, the 
BASIC Interpreter must be made part of the RTOS re-entrant library and individual dummy tasks must be created 
for each user. These tasks exist only to provide a user work area for each user and to allow the assignment of a 
unique device number for each user terminal. The number of users is limited only by tlie amount of memory 
on the system. 

The 07-045F06 RTOS Re-entrant Library program, RLSTAB, must be modified and reassembled as 
follows: 

1. Before the statement RLSEND EQU *, insert the foUowii^ statements: 

EXTRN BASIC 
DC C 'BASIC 
DC A (BASIC) 

2. Re-assemble RLSTAB with the above changes and create a new RTOS load module following in- 
structions in Chapter 6 of the RTOS Reference Manual, Publication Number 29-240. The 
BASIC object program must be linked Into the load module before Initialize. 
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3, Each BASIC user requires a unique task (program listing below) that will provide the storage for 
the user work area and allow a unique terminal device number to be assigned to Logical Unit 5 
(LU5). This task is established, loaded and started using the same procedure described in Section 
5. 2. Assembly language subroutines for each task may be loaded in front of each task. The following 
conditions also must be met. 

- Each task must have a different ID (ESTA Command). 

- The physical device assigned to LU5 must be different for each task. 

- LU 5 must be both an input and output device, 1. e. , a TTY or CRT 

- The TET command EXCL BASIC must be entered prior to the LOAD command. 
The required task for each user is listed below: 



START B BASIC EXECUTE BASIC 



EXTRN 


BASIC 


B 


BASIC E 


END 




OPEN 


BASIC ie 0000 


REPL 


start of BASIC 



5.5 SINGLE-USER BASIC UNDER OS/32-ST 

To operate BASIC under OS/32ST load the 32-blt relocatable object program (03-^055) with the OS LOAD command, 
specifying a bias if desired. (See the OS/32-ST Program Reference Manual, Publication Number 29-380.) 

Example: LOAD PTRP:, 3000 - Load BASIC from the paper tape reader. 
When loading Is complete the user should Issue the OS START command. BASIC will print the message: 

BASIC 
and enter the command mode, rea<fy for user statements. 

For operation under OS/16MT and OS/32MT refer to the appropriate operating system manual for task establish- 
ment and loading procedures. 



0S/16-MT Reference Manual 29-367 

OS/32-MT Program Reference Manual 29-390 

OS/32-MT Task Establisher Task (TET/32) User's Guide 29-412 
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APPENDIX 1 
ERROR MESSAGES 

When errors are encountered in BASIC, a. message is printed on the terminal. 

1. Errors while inputting a •progtasn. 

The Message XX-ERR is printed where XX are two alpha characters describing the error. 

XX Meaning 

OF Storage overflow 

LN No such line number 

PF Statement too complex 

SY Syntax error 

WD Unrecognizable word 

2. I/O Errors 

The Message lO-ERR XXDD is printed on detection of an I/O error where XX is Qie device status and 
DD is the device nuniber oansing the error. 



XX 


Meaiflng 


Co 


Hfegil function 


AO 


Device Unavailable 


90 


End-Of-Medium 


88 


End-Qf-File 


84 


Uioreeoverable Error 



See tiie appropriate operating system doeumenft or the Multi-user Executive document 03-058A15 
for details on device status. 
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3, Errors while executing a program. 

The Message XX-ERR n is printed where XX are two alpha characters describing the error and n 
is the line number at which the error occurred. 

XX Meaning 

AE Arithmetic overflow or underflow or division by zero. 

CA Call to assembly language subroutine is undefined or contains the wrong 

number of parameters. 

DA DATA is exhausted or does not match variable type. 

EX Expression too complex for evaluation in available memory. 

FN Argument error in the LOG or SQR function or in the t operation. 

FR FOR statement nested too deep. 

GS GOSUB's nested too deep, RETURN without GOSUB. 

IN Input data does not match INPUT statement variable list. 

LN No such line number. 

MD Matrix opera.tion attempted within incompatible dimensions, or a resulting 

matrix of insufficient size. 

MV Matrix is singular and cannot be inverted. 

NX NEXT without FOR 

OF Out of storage while allocatii^ a variable or array, or array re-dimensioning 

exceeds original maximum size. 

PR Missing parenthesis. 

PU Invalid PRINT USING format field. 

RF Reference to undefined variable or array. 

SB Illegal subscript. 

SU String undefined or missing. 

SY Syntax Error. 

UF User function undefined. 
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APPENDIX 2 
PROGRAM SIZE AND 'TIME ESTIMATES 



PROGRAM SIZE: 

1- In 16-bit BASIC, each user prc^ram requires 426 bjrtes for pointers, buffers, temporary storage, 
etc. BASIC uses the first 426 bytes of fiie users work area for this purpose. 

2. In 32-blt BASIC, each user program requires 558 bytes for pointers, buffers, temporary storage, etc. 
BASIC uses tiie first 55€ l^tes of ^e users work area for this purpose. 

3. Each character in a program statement recpiires a single byte of user work area, in both 16-bit and 
32-bit BASIC versions with the following exertions: 

All reserved words require only 1 byte. 

All integer constants between 01 and 63 require only one bsrte. 

Constants that are not integers from to 63 require 5 bytes of user work area. 

All line numbers require 2 bytes plus a one bsrte character count. 

4. User variables and arrays require various amount of storage. 



16-btt BASIC 
simple numeric variable 6 bytes 
ID numeric array A(N) 4*(N+1) +8 bytes 
2D numeric array A(N, M) 4*(N+l)*(M+l)+8 bytes 

string variable A$(N) 



string array A$(N, M) 



N+5 bytes, N odd 
N+6 bytes, N even 

M*(N+1) +4 bytes 



32-btt BASIC 
8 lytes 

4*(N+l)+8 bytes 
4*(N+l)*(M+l)+8 bytes 



Integer of (^H*4 bytes 

f ^ M*(Ntl)+4\ l *4 lytes 

. (Integer of \ 4 /J 
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TIME ESTIMATES: 

The following programs provide execution ttme estimate for various BASIC statements. 



PBOGRAM 

FOE X=l TO 1000 
NEXTX 

rORX=lTO 1000 

Y=l 

NEXTX 

FOR X=l TO 1000 
Y=SIN (X) 
NEXTX 

FOR X=l TO 1000 
Y=LOG (X) 
NEXTX 

FOR X=l TO 1000 
Y=EXP (X) 
NEXTX 

FOR X=l TO 1000 
Y=ATN (X) 
NEXTX 

DIM A (20, 20), B(20, 20), C(20, 20) 
MAT A=INV (B) 

MAT A=DET (A) 

MAT C=A*B 



16-bit BASIC 
RUN TIME (Model 70) 
. 2 seconds 

.9 seconds 
2 seconds 
2 secands 
8 seconds 
2 seconds 

7. 5 seconds 

2.5 seconds 
2 seconds 



32-bit BASIC 
RUN TIME (Model 7/32) 
.27 seconds 

.83 seconds 
1. 8 seconds 
1. 8 seconds 
8 seconds 
2 seconds 

7. 5 seconds 

2. 5 seconds 
2 seconds 



A2-2 



APPENDIX 3 
ASCn CODE CONVERSION TABLE 



CHARACTER 

NULL 

SOM 

EOA 

EOM 

EOT 

WRU 

RU 

BELL 

FEo 

HT/SK 

LF 

VT 

FF 

CR 

SO 

SI 

DCo 

X-ON 

TAPE-ON 

X-OFF 

TAPE-OFF 

ERR 

SYNC 

LEM 

So 

Si 
S2 
S3 
S4 



Se 



S7 



DECIMAL 


7-BlT ASCII CODE 








1 


1 


2 


2 


3 


3 


4 


4 


5 


5 


6 


6 


7 


7 


8 


■ 8 


9 


9 


10 


A 


11 


B 


12 


C 


13 


D 


14 


E 


15 


F 


16 


10 


17 


11 


18 


12 


19 


13 


20 


14 


21 


15 


22 


16 


23 


17 


24 


18 


25 


19 


26 


lA 


27 


IB 


28 


IC 


29 


ID 


30 


IE 


31 


IF 
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7-BIT 








7-BIT 








Ascn 


CARD 






ASCII 


CARD 


CHARACTER 


DECIMAL 


CODE 


CODE 


CHARACTER 


DECIMAL 


CODE 


CODE 


SPACE 


32 


20 


BLANK 


@ 


64 


40 


8-4 


! 


33 


21 


12-8-7 


A 


65 


41 


12-1 


tf 


34 


22 


8-7 


B 


66 


42 


12-2 


# 


35 


23 


8-3 


C 


67 


43 


12-3 


■ $ 


36 


24 


11-8-3 


D 


68 


44 


12-4 


% 


37 


25 


0-8-4 


E 


69 


45 


12-5 


& 


38 


26 


12 


F 


70 


46 


12-6 


T 


39 


27 


8-5 


G 


71 


47 


12-7 


( 


40 


28 


12-8-5 


H 


72 


48 


12-8 


) 


41 


29 


11-8-5 


I 


73 


49 


12-9 


+ . 


42 


2A 


11-8-4 


J 


74 


4A 


11-1 


+ 


43 


2B 


12-8-6 


K 


75 


4B 


11-2 


f 


44 


2C 


0-8-3 


L 


76 


4C 


11-3 


- 


45 


2D 


11 


M 


77 


4D 


11-4 


• 


46 


2E 


12-8-3 


N 


78 


4E 


11-5 


/ 


47 


2F 


0-1 


O 


79 


4F 


11-6 





48 


30 





P 


80 


50 


11-7 


1 


49 


31 


1 


Q 


81 


51 


11-8 


2 


50 


32 


2 


R 


82 


52 


11-9 


3 


51 


33 


3 


S 


83 


53 


0-2 


4 


52 


34 


4 


T 


84 


54 


0-3 


5 


53 


35 


5 


U 


85 


55 


0-4 


6 


54 


36 


6 


V 


86 


56 


0-5 


7 


55 


37 


7 


W 


87 


57 


0-6 


8 


56 


38 


8 


X 


88 


58 


0-7 


9 


57 


39 


9 


Y 


89 


59 


0-8 


; 


58 


3A 


8-2 


Z 


90 


5A 


0-9 


> 


59 


3B 


11-8-6 


C 


91 


5B 


12-8-2 


< 


60 


3C 


12-8-4 


\ 


92 


5C 


11-8-1 


= 


61 


3D 


8-6 


] 


93 


5D 


11-8-2 


> 


62 


3E 


0-8-6 


t 


94 


5E 


11-8-7 


? 


63 


3F 


0-8-7 




95 


5F 


0-8-5 
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TABLE OF MATHEMATICAL CONSTANTS 



Constant 


Decimal Value 


TT 


3. 141593 


TT-l 


0. 3183099 


Vtt 


1. 772454 


Ln TT 


1. 14473 


e 


2.718282 


e-1 


0.3678794 


Ve 


1.648721 


logioe 


0.4342945 


logge 


1.442695 


y 


0. 5772157 


LnX 


-0. 5495393 


V2 


1.4142114 


Ln2 


0.6931472 


logio2 


0.30103 


VlO 


3. 162278 


LnlO 


2. 302585 
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APPENDIX 4 
REVISION INFORMATION 

The 'BASIC entry point to the Interpreter has been added and the DIM statement has been modified to 
zero the length bjrtes in string arrays. 

The following BASIC commands, statements, and functions are added to the BASIC Interpreter, ROl. 

BASIC Commands 

RENUM Renumber user program in core starting 

RENUM nj the first line with n-^ and incrementing 

RENUM nj,n2 by n2. Default values will be 10 and 10. 

ERASE Erase entire program. (Same as NEW ) 

ERASE ttj Erase only line n^. 

ERASE n-| TO Erase all lines from n, to end of program. 

ERASE n]^ TO n Erase all lines from n^ to n^. 

BASIC Statements 

SETTRACE Print the line numbers of all statements 

ENDTRACE executed until encountering ENDTRACE. 

ON ERROR GO TO n ^^ Go to line n when 

ON ERROR THEN n ^ an execution error occurs. 

ON expression GO SUB nj^, n- 

If eJ5)ression evaluates to 1 transfer will be to subroutine n^, if expression evaluates to 2 transfer will be to 
subroutine n_. 

If ejq>ression evaluates to an integer less than one or greater than the sequence number of the last statement 
number in the list, the ON statement is ignored and control passes to the next statement. 

If ejq)ression does not evaluate to an integer, it is truncated to an integer by the INT function. 
BASIC Functions 

ERR$ (X) After an execution error has occurred these fimctions 

ERL (X) return a two character error code (ERR$) or the line 

number where the execution error occurred (ERL). 
VAL (S) Converts character string S to a numeric variable. 

STR$ (X) Converts numeric variable X to a character string. 

The BASIC Interpreter R02 has been rewritten in common mode CAL and the object program is available in two 
forms: 

03-055Mx6R02 For 16 bit processors 

03-055MxlR02 For 32 bit processors 

where x is the media designation 

X = 1 paper tape 

2 cassettes 

3 magtape 

The PRINT statement has been changed to print 132 character output. 
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